Don't lose bytes when using settingsIntercept (#68)
commit8d8dca7f8c355129a6180e0c19fee473713adc7e
authorMichael <michael@snoyman.com>
dateWed 9 May 2012, 06:34 (14 years ago)
parent22d4b75
warp/Network/Wai/Handler/Warp.hs+2−1
@@ -302,7 +302,8 @@ serveConnection settings th onException port app conn remoteHost' =
302302 when keepAlive $ serveConnection'' fromClient'
303303 Just intercept -> do
304304 liftIO $ T.pause th
305− intercept fromClient conn
305+ fromClient' <- liftIO $ ibsDone ibs
306+ intercept fromClient' conn
306307
307308parseRequest :: Connection -> Port -> SockAddr
308309 -> C.Source (ResourceT IO) S.ByteString