@@ -105,7 +105,6 @@ runSettings set app = withSocketsDo $
105105 sClose
106106 (\socket -> do
107107 setSocketCloseOnExec socket
108− setSocketOption socket NoDelay 1
109108 runSettingsSocket set socket app)
110109
111110-- | This installs a shutdown handler for the given socket and
@@ -131,6 +130,7 @@ runSettingsSocket set socket app = do
131130 (s, sa) <- accept socket
132131#endif
133132 setSocketCloseOnExec s
133+ setSocketOption s NoDelay 1
134134 conn <- socketConnection s
135135 return (conn, sa)
136136