git.iko.soy/typeable/wai
on master help sign in
Change $$& to $$+
98f0bcfMichael Snoyman
conduit+1−1
compare with master
unifiedsplit

Submodule changed.

warp/Network/Wai/Handler/Warp.hs+2−2
@@ -228,7 +228,7 @@ ibsIsolate ibs@(IsolatedBSSource ref) =
228 then return $ C.Done Nothing ()
228 then return $ C.Done Nothing ()
229 else do
229 else do
230 -- Get the next chunk (if available) and the updated source
230 -- Get the next chunk (if available) and the updated source
231− (src', mbs) <- src C.$$& CL.head
231+ (src', mbs) <- src C.$$+ CL.head
232
232
233 -- If no chunk available, then there aren't enough bytes in the
233 -- If no chunk available, then there aren't enough bytes in the
234 -- stream. Throw a ConnectionClosedByPeer
234 -- stream. Throw a ConnectionClosedByPeer
@@ -308,7 +308,7 @@ parseRequest :: Connection -> Port -> SockAddr
308 -> C.Source (ResourceT IO) S.ByteString
308 -> C.Source (ResourceT IO) S.ByteString
309 -> ResourceT IO (Request, IsolatedBSSource)
309 -> ResourceT IO (Request, IsolatedBSSource)
310parseRequest conn port remoteHost' src1 = do
310parseRequest conn port remoteHost' src1 = do
311− (src2, headers') <- src1 C.$$& takeHeaders
311+ (src2, headers') <- src1 C.$$+ takeHeaders
312 parseRequest' conn port headers' remoteHost' src2
312 parseRequest' conn port headers' remoteHost' src2
313
313
314-- FIXME come up with good values here
314-- FIXME come up with good values here