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