zip-archive 0.2.2 → 0.2.2.1

raw patch · 2 files changed

+13/−13 lines, 2 files

Files

• src/Codec/Archive/Zip.hs +12/−12
• zip-archive.cabal +1/−1

@@ -553,20 +553,20 @@   return (fromIntegral offset, compressedData)  getWordsTilSig :: Word32 -> Get [Word8]-getWordsTilSig sig = do+getWordsTilSig sig = go []+  where+    go acc = do #if MIN_VERSION_binary(0, 6, 0)-  (getWord32le >>= ensure (== sig) >> return []) <|>-    do w <- getWord8-       ws <- getWordsTilSig sig-       return (w:ws)+      (getWord32le >>= ensure (== sig) >> return (reverse acc)) <|>+        do w <- getWord8+           go (w:acc) #else-    sig' <- lookAhead getWord32le-    if sig == sig'-        then skip 4 >> return []-        else do-            w <- getWord8-            ws <- getWordsTilSig sig-            return (w:ws)+      sig' <- lookAhead getWord32le+      if sig == sig'+          then skip 4 >> return (reverse acc)+          else do+              w <- getWord8+              go (w:acc) #endif  putLocalFile :: Entry -> Put

@@ -1,5 +1,5 @@ Name:                zip-archive-Version:             0.2.2+Version:             0.2.2.1 Cabal-Version:       >= 1.10 Build-type:          Simple Synopsis:            Library for creating and modifying zip archives.