@@ -107,13 +107,13 @@ runSettings set app =
107107-- 'serverPort' record.
108108runSettingsSocket :: Settings -> Socket -> Application -> IO ()
109109runSettingsSocket set socket app =
110− runSettingsConnection set getter app
110+ runSettingsConnection set getConn app
111111 where
112− getter = do
113− (conn, sa) <- accept socket
112+ getConn = do
113+ (s, sa) <- accept socket
114114 buf <- allocateRecvBuffer bytesPerRead
115115 setSocketCloseOnExec socket
116− return (socketConnection conn buf, sa)
116+ return (socketConnection s buf, sa)
117117
118118runSettingsConnection :: Settings -> IO (Connection, SockAddr) -> Application -> IO ()
119119runSettingsConnection set getConn app = runSettingsConnectionMaker set getConnMaker app