@@ -107,13 +107,13 @@ runSettings set app =
107-- 'serverPort' record.
107-- 'serverPort' record.
108runSettingsSocket :: Settings -> Socket -> Application -> IO ()
108runSettingsSocket :: Settings -> Socket -> Application -> IO ()
109runSettingsSocket set socket app =
109runSettingsSocket set socket app =
110− runSettingsConnection set getter app
110+ runSettingsConnection set getConn app
112− getter = do
112+ getConn = do
113− (conn, sa) <- accept socket
113+ (s, sa) <- accept socket
114 buf <- allocateRecvBuffer bytesPerRead
114 buf <- allocateRecvBuffer bytesPerRead
115 setSocketCloseOnExec socket
115 setSocketCloseOnExec socket
116− return (socketConnection conn buf, sa)
116+ return (socketConnection s buf, sa)
118runSettingsConnection :: Settings -> IO (Connection, SockAddr) -> Application -> IO ()
118runSettingsConnection :: Settings -> IO (Connection, SockAddr) -> Application -> IO ()
119runSettingsConnection set getConn app = runSettingsConnectionMaker set getConnMaker app
119runSettingsConnection set getConn app = runSettingsConnectionMaker set getConnMaker app