mq_server: set TCP_NODELAY in socket.

mfp · Nov 11, 2010 · fef36b6 · fef36b6
1 parent 35e701b
commit fef36b6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/mq_server.ml b/mq_server.ml
@@ -575,6 +575,7 @@ let server_loop ?(debug = false) broker =
   let rec loop () =
     (try_lwt
       lwt (fd, addr) = Lwt_unix.accept broker.b_socket in
+        Lwt_unix.setsockopt fd Unix.TCP_NODELAY true;
         ignore_result (establish_connection broker fd) addr;
         return ()
      with e ->