Turn off nagling on the server sockets

2012-03-01 11:06:33 -05:00 · 2012-03-01 11:06:33 -05:00 · 7c2c6cd893
parent 0e8ea9b2ac
commit 7c2c6cd893
1 changed files with 1 additions and 0 deletions
--- a/ocamlmsg.ml
+++ b/ocamlmsg.ml
@ -4,6 +4,7 @@ open Thread

 let rec accept_loop sock =
  let (s, peername) = accept sock in
+  setsockopt s TCP_NODELAY true;
  ignore (Relay.start_relay (s, peername));
  accept_loop sock