@@ -22,7 +22,7 @@ import Data.IP (toHostAddress, toHostAddress6)
2222import Data.IORef (IORef, newIORef, readIORef, writeIORef)
2323import Data.Streaming.Network (bindPortTCP)
2424import Network (sClose, Socket)
25−import Network.Socket (accept, withSocketsDo, SockAddr(SockAddrInet, SockAddrInet6))
25+import Network.Socket (accept, withSocketsDo, SockAddr(SockAddrInet, SockAddrInet6), setSocketOption, SocketOption(..))
2626import qualified Network.Socket.ByteString as Sock
2727import Network.Wai
2828import Network.Wai.Handler.Warp.Buffer
@@ -105,6 +105,7 @@ runSettings set app = withSocketsDo $
105105 sClose
106106 (\socket -> do
107107 setSocketCloseOnExec socket
108+ setSocketOption socket NoDelay 1
108109 runSettingsSocket set socket app)
109110
110111-- | This installs a shutdown handler for the given socket and