Fixed typo
commit5cfdc4d7facd7043f530bce4ce0f0c57c923b029
authoriko <ilyakooo0@gmail.com>
dateMon 24 Feb 2020, 23:39 (7 years ago)
parentab58276
src/Docker/Client/Utils.hs+1−1
@@ -139,7 +139,7 @@ processLog = do
139139 -- metadata (is the next string is stdout or stderr)
140140 _ <- CB.take 4
141141 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'
143143 case len of
144144 0 -> return ()
145145 n -> do