From c4d405c086ff9fd717df2d43741de466ca44d6ef Mon Sep 17 00:00:00 2001
From: Dylan Simon <dylan@dylex.net>
Date: Tue, 9 May 2017 23:24:51 -0400
Subject: [PATCH] Make sure to read the entire entry contents

Even if decompressor ends early.  Maybe this should be an error?
---
 Codec/Archive/Zip/Conduit/UnZip.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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