@@ -22,7 +22,7 @@ import Data.IP (toHostAddress, toHostAddress6)
22import Data.IORef (IORef, newIORef, readIORef, writeIORef)
22import Data.IORef (IORef, newIORef, readIORef, writeIORef)
23import Data.Streaming.Network (bindPortTCP)
23import Data.Streaming.Network (bindPortTCP)
24import Network (sClose, Socket)
24import Network (sClose, Socket)
25−import Network.Socket (accept, withSocketsDo, SockAddr(SockAddrInet, SockAddrInet6))
25+import Network.Socket (accept, withSocketsDo, SockAddr(SockAddrInet, SockAddrInet6), setSocketOption, SocketOption(..))
26import qualified Network.Socket.ByteString as Sock
26import qualified Network.Socket.ByteString as Sock
27import Network.Wai
27import Network.Wai
28import Network.Wai.Handler.Warp.Buffer
28import Network.Wai.Handler.Warp.Buffer
@@ -105,6 +105,7 @@ runSettings set app = withSocketsDo $
106 (\socket -> do
106 (\socket -> do
107 setSocketCloseOnExec socket
107 setSocketCloseOnExec socket
108+ setSocketOption socket NoDelay 1
108 runSettingsSocket set socket app)
109 runSettingsSocket set socket app)
110-- | This installs a shutdown handler for the given socket and
111-- | This installs a shutdown handler for the given socket and