@@ -139,7 +139,7 @@ processLog = do
139 -- metadata (is the next string is stdout or stderr)
139 -- metadata (is the next string is stdout or stderr)
140 _ <- CB.take 4
140 _ <- CB.take 4
141 len' <- CB.take 4
141 len' <- CB.take 4
142− let len = BS.foldl (\i w -> shiftL i 8 .&. fromIntegral w) 0 len'
142+ let len = BS.foldl (\i w -> shiftL i 8 .|. fromIntegral w) 0 len'
143 case len of
143 case len of
144 0 -> return ()
144 0 -> return ()