haskell/zip-stream
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make sure to read the entire entry contents

Browse Source 
Even if decompressor ends early.  Maybe this should be an error?
This commit is contained in:
Dylan Simon 2017-05-09 23:24:51 -04:00
parent e006ecd336
commit c4d405c086
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Codec/Archive/Zip/Conduit/UnZip.hs
View File

@ -53,7 +53,7 @@ unZip = next where
FileHeader{..} -> do FileHeader{..} -> do
C.yield $ Left fileEntry C.yield $ Left fileEntry
C.mapOutput Right $ pass (fromIntegral fileCSize) C.mapOutput Right $ pass (fromIntegral fileCSize)
C..| fileDecompress C..| (fileDecompress >> CL.sinkNull)
C..| checkCRC fileCRC C..| checkCRC fileCRC
next next
EndOfCentralDirectory{..} -> do EndOfCentralDirectory{..} -> do