Don't lose bytes when using settingsIntercept (#68)
commit7502e107efb2ed1b9f34ff5737b48c53c63b2d45
authorMichael <michael@snoyman.com>
dateWed 9 May 2012, 06:34 (14 years ago)
parent01d46f1
warp/Network/Wai/Handler/Warp.hs+2−1
@@ -299,7 +299,8 @@ serveConnection settings th port app conn remoteHost' =
299299 when keepAlive $ serveConnection'' fromClient'
300300 Just intercept -> do
301301 liftIO $ T.pause th
302− intercept fromClient conn
302+ fromClient' <- liftIO $ ibsDone ibs
303+ intercept fromClient' conn
303304
304305parseRequest :: Connection -> Port -> SockAddr
305306 -> C.Source (ResourceT IO) S.ByteString