Make sure to read the entire entry contents

Even if decompressor ends early. Maybe this should be an error?
2017-05-09 23:24:51 -04:00 · 2017-05-09 23:24:51 -04:00 · c4d405c086
commit c4d405c086
parent e006ecd336
1 changed files with 1 additions and 1 deletions
--- 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