diff --git a/Codec/Archive/Zip/Conduit/UnZip.hs b/Codec/Archive/Zip/Conduit/UnZip.hs index 0028821..1d63b5b 100644 --- a/Codec/Archive/Zip/Conduit/UnZip.hs +++ b/Codec/Archive/Zip/Conduit/UnZip.hs @@ -53,7 +53,7 @@ unZip = next where FileHeader{..} -> do C.yield $ Left fileEntry C.mapOutput Right $ pass (fromIntegral fileCSize) - C..| fileDecompress + C..| (fileDecompress >> CL.sinkNull) C..| checkCRC fileCRC next EndOfCentralDirectory{..} -> do