@@ -259,14 +259,14 @@ serveConnection timeoutHandle settings cleaner app conn remoteHost' =
259 liftIO $ T.resume th
259 liftIO $ T.resume th
260 sendResponse settings cleaner env conn restore res
260 sendResponse settings cleaner env conn restore res
262− -- | We just send a Response and it takes a time to
262+ -- We just send a Response and it takes a time to
263− -- receive a Request again. If we immediately call recv,
263+ -- receive a Request again. If we immediately call recv,
264− -- it is likely to fail and the IO manager works.
264+ -- it is likely to fail and the IO manager works.
265− -- It is very costy. So, we yield to another Haskell
265+ -- It is very costy. So, we yield to another Haskell
266− -- thread hoping that the next Request will arraive
266+ -- thread hoping that the next Request will arraive
267− -- when this Haskell thread will be re-scheduled.
267+ -- when this Haskell thread will be re-scheduled.
268− -- This improves performance at least when
268+ -- This improves performance at least when
269− -- the number of cores is small.
269+ -- the number of cores is small.
270 Conc.yield
270 Conc.yield
271 -- flush the rest of the request body
271 -- flush the rest of the request body
272 requestBody env $$ CL.sinkNull
272 requestBody env $$ CL.sinkNull