857 |
let server_send debug sock m = |
let server_send debug sock m = |
858 |
(* lprintf "SENDING"; lprint_newline (); |
(* lprintf "SENDING"; lprint_newline (); |
859 |
print m; *) |
print m; *) |
860 |
Buffer.clear buf; |
Buffer.reset buf; |
861 |
write buf m; |
write buf m; |
862 |
Buffer.add_char buf '|'; |
Buffer.add_char buf '|'; |
863 |
let s = Buffer.contents buf in |
let s = Buffer.contents buf in |
869 |
let debug_server_send sock m = |
let debug_server_send sock m = |
870 |
lprintf "SENDING"; lprint_newline (); |
lprintf "SENDING"; lprint_newline (); |
871 |
print m; |
print m; |
872 |
Buffer.clear buf; |
Buffer.reset buf; |
873 |
write buf m; |
write buf m; |
874 |
Buffer.add_char buf '|'; |
Buffer.add_char buf '|'; |
875 |
let s = Buffer.contents buf in |
let s = Buffer.contents buf in |