@@ -105,7 +105,6 @@ runSettings set app = withSocketsDo $
106 (\socket -> do
106 (\socket -> do
107 setSocketCloseOnExec socket
107 setSocketCloseOnExec socket
108− setSocketOption socket NoDelay 1
109 runSettingsSocket set socket app)
108 runSettingsSocket set socket app)
111-- | This installs a shutdown handler for the given socket and
110-- | This installs a shutdown handler for the given socket and
@@ -131,6 +130,7 @@ runSettingsSocket set socket app = do
131 (s, sa) <- accept socket
130 (s, sa) <- accept socket
133 setSocketCloseOnExec s
132 setSocketCloseOnExec s
133+ setSocketOption s NoDelay 1
134 conn <- socketConnection s
134 conn <- socketConnection s
135 return (conn, sa)
135 return (conn, sa)