zip-archive 0.3.0.4 → 0.3.0.5

raw patch · 3 files changed

+8/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• changelog +4/−0
• src/Codec/Archive/Zip.hs +3/−3
• zip-archive.cabal +1/−1

@@ -1,3 +1,7 @@+zip-archive 0.3.0.5++  * Fix `OptLocation` option handling (EugeneN).+ zip-archive 0.3.0.4    * Fix `toArchive` so it doesn't use too much memory when a data

@@ -258,7 +258,7 @@                                     _ | isDir -> "/"                                       | otherwise -> "") in               (case [(l,a) | OptLocation l a <- opts] of-                    ((l,a):_) -> if a then l </> p else l+                    ((l,a):_) -> if a then l </> p else l </> takeFileName p                     _         -> p)   contents <- if isDir                  then return B.empty@@ -275,7 +275,7 @@ #ifdef _WINDOWS         return $ entry #else-        do fm <- fmap fileMode $ getFileStatus path'+        do fm <- fmap fileMode $ getFileStatus path            let modes = fromIntegral $ shiftL (toInteger fm) 16            return $ entry { eExternalFileAttributes = modes,                             eVersionMadeBy = versionMadeBy }@@ -505,7 +505,7 @@   locals <- manySig 0x04034b50 getLocalFile   files <- manySig 0x02014b50 (getFileHeader (M.fromList locals))   digSig <- lookAheadM getDigitalSignature-#endif +#endif   endSig <- getWord32le   unless (endSig == 0x06054b50)     $ fail "Did not find end of central directory signature"

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