From 7c2c6cd893eca34f17b05d2bdf7ae3808fb7597a Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 1 Mar 2012 11:06:33 -0500
Subject: [PATCH] Turn off nagling on the server sockets

---
 ocamlmsg.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ocamlmsg.ml b/ocamlmsg.ml
index d67ba0f..202745d 100644
--- 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