@@ -308,7 +308,7 @@ parseRequest' conn port (firstLine:otherLines) remoteHost' src = do
308308 -- We can't use the standard isolate, as its counter is not
309309 -- kept in a mutable variable.
310310 lenRef <- liftIO $ I.newIORef len0
311− let isolate = C.Running push C.Closed
311+ let isolate = C.NeedInput push C.Closed
312312 push bs = flip C.ConduitM (return ()) $ do
313313 len <- liftIO $ I.readIORef lenRef
314314 let (a, b) = S.splitAt len bs
@@ -320,8 +320,8 @@ parseRequest' conn port (firstLine:otherLines) remoteHost' src = do
320320 final = C.Finished mleftover
321321 in if S.null a
322322 then final
323− else C.HaveMore final (return ()) a
324− else C.HaveMore isolate (return ()) a
323+ else C.HaveOutput final (return ()) a
324+ else C.HaveOutput isolate (return ()) a
325325
326326 -- Make sure that we don't connect to the source after the
327327 -- isolate conduit closes.
@@ -531,8 +531,8 @@ sendResponse th req conn r = sendResponse' r
531531 -- functions below. Should lessen greatly the GC burden (I hope)
532532 needsChunked' = needsChunked hs
533533 chunk :: C.Conduit Builder (ResourceT IO) Builder
534− chunk = C.Running push close
535− push x = C.HaveMore chunk (return ()) (chunkedTransferEncoding x)
534+ chunk = C.NeedInput push close
535+ push x = C.HaveOutput chunk (return ()) (chunkedTransferEncoding x)
536536 close = C.Open C.Closed (return ()) chunkedTransferTerminator
537537
538538parseHeaderNoAttr :: ByteString -> H.Header