@@ -213,7 +213,7 @@ serveConnection :: T.Handle
213213 -> InternalInfo
214214 -> Application -> Connection -> SockAddr-> IO ()
215215serveConnection timeoutHandle settings ii app conn remoteHost' =
216− serveConnection' (connSource conn th) `onException` send500
216+ recvSendLoop (connSource conn th) `onException` send500
217217 where
218218 th = threadHandle ii
219219
@@ -224,7 +224,7 @@ serveConnection timeoutHandle settings ii app conn remoteHost' =
224224
225225 internalError = responseLBS H.internalServerError500 [(H.hContentType, "text/plain")] "Something went wrong"
226226
227− serveConnection' fromClient = do
227+ recvSendLoop fromClient = do
228228 (env, idxhdr, getSource) <- recvRequest conn timeoutHandle remoteHost' fromClient
229229 case settingsIntercept settings env of
230230 Nothing -> do
@@ -252,7 +252,7 @@ serveConnection timeoutHandle settings ii app conn remoteHost' =
252252 requestBody env $$ CL.sinkNull
253253 ResumableSource fromClient' _ <- liftIO getSource
254254
255− when keepAlive $ serveConnection' fromClient'
255+ when keepAlive $ recvSendLoop fromClient'
256256 Just intercept -> do
257257 liftIO $ T.pause th
258258 ResumableSource fromClient' _ <- liftIO getSource