Merge pull request #181 from yesodweb/fix-cloexec
setting cloexe to an accepted socket, not a listening socket.
commitc3f616d11ef681336bea0173181b14528a6c83b4
authorMichael Snoyman <michael@snoyman.com>
dateWed 9 Oct 2013, 05:33 (13 years ago)
parent4c9cc53ce2d124
warp/Network/Wai/Handler/Warp/Run.hs+1−1
@@ -118,7 +118,7 @@ runSettingsSocket set socket app =
118118 where
119119 getter = do
120120 (conn, sa) <- accept socket
121− setSocketCloseOnExec socket
121+ setSocketCloseOnExec conn
122122 return (socketConnection conn, sa)
123123
124124runSettingsConnection :: Settings -> IO (Connection, SockAddr) -> Application -> IO ()