@@ -131,7 +131,7 @@ runSettingsConnection set getConn app = runSettingsConnectionMaker set getConnMa
131131--
132132-- Since 1.3.5
133133runSettingsConnectionMaker :: Settings -> IO (IO Connection, SockAddr) -> Application -> IO ()
134−runSettingsConnectionMaker set getConn app = do
134+runSettingsConnectionMaker set getConnMaker app = do
135135#if SENDFILEFD
136136 let duration = settingsFdCacheDuration set
137137 fc <- case duration of
@@ -208,7 +208,7 @@ runSettingsConnectionMaker set getConn app = do
208208 serveConnection th set cleaner app conn addr
209209 where
210210 -- FIXME: only IOEception is caught. What about other exceptions?
211− getConnLoop = getConn `E.catch` \(e :: IOException) -> do
211+ getConnLoop = getConnMaker `E.catch` \(e :: IOException) -> do
212212 onE Nothing (toException e)
213213 -- "resource exhausted (Too many open files)" may happen by accept().
214214 -- Wait a second hoping that resource will be available.