@@ -233,14 +233,14 @@ serveConnection conn ii addr settings app =
233233 case settingsIntercept settings req of
234234 Nothing -> do
235235 -- Let the application run for as long as it wants
236− liftIO $ T.pause th
236+ T.pause th
237237
238238 -- In the event that some scarce resource was acquired during
239239 -- creating the request, we need to make sure that we don't get
240240 -- an async exception before calling the ResponseSource.
241241 keepAlive <- mask $ \restore -> do
242242 res <- restore $ app req
243− liftIO $ T.resume th
243+ T.resume th
244244 sendResponse conn ii restore req idxhdr res
245245
246246 -- We just send a Response and it takes a time to
@@ -254,12 +254,12 @@ serveConnection conn ii addr settings app =
254254 Conc.yield
255255 -- flush the rest of the request body
256256 requestBody req $$ CL.sinkNull
257− ResumableSource fromClient' _ <- liftIO getSource
257+ ResumableSource fromClient' _ <- getSource
258258
259259 when keepAlive $ recvSendLoop fromClient'
260260 Just intercept -> do
261− liftIO $ T.pause th
262− ResumableSource fromClient' _ <- liftIO getSource
261+ T.pause th
262+ ResumableSource fromClient' _ <- getSource
263263 intercept fromClient' conn
264264
265265connSource :: Connection -> T.Handle -> Source IO ByteString