@@ -228,7 +228,7 @@ ibsIsolate ibs@(IsolatedBSSource ref) =
228228 then return $ C.Done Nothing ()
229229 else do
230230 -- Get the next chunk (if available) and the updated source
231− (src', mbs) <- src C.$$& CL.head
231+ (src', mbs) <- src C.$$+ CL.head
232232
233233 -- If no chunk available, then there aren't enough bytes in the
234234 -- stream. Throw a ConnectionClosedByPeer
@@ -308,7 +308,7 @@ parseRequest :: Connection -> Port -> SockAddr
308308 -> C.Source (ResourceT IO) S.ByteString
309309 -> ResourceT IO (Request, IsolatedBSSource)
310310parseRequest conn port remoteHost' src1 = do
311− (src2, headers') <- src1 C.$$& takeHeaders
311+ (src2, headers') <- src1 C.$$+ takeHeaders
312312 parseRequest' conn port headers' remoteHost' src2
313313
314314-- FIXME come up with good values here