zip-archive 0.3 → 0.3.0.1

raw patch · 2 files changed

+4/−3 lines, 2 files

Files

src/Codec/Archive/Zip.hs +3/−2
zip-archive.cabal +1/−1

src/Codec/Archive/Zip.hs view

@@ -241,7 +241,7 @@             , eUncompressedSize        = fromIntegral uncompressedSize             , eExtraField              = B.empty             , eFileComment             = B.empty-            , eVersionMadeBy           = versionMadeBy+            , eVersionMadeBy           = 0  -- FAT             , eInternalFileAttributes  = 0  -- potentially non-text             , eExternalFileAttributes  = 0  -- appropriate if from stdin             , eCompressedData          = finalData@@ -276,7 +276,8 @@ #else         do fm <- fmap fileMode $ getFileStatus path'            let modes = fromIntegral $ shiftL (toInteger fm) 16-           return $ entry { eExternalFileAttributes = modes }+           return $ entry { eExternalFileAttributes = modes,+                            eVersionMadeBy = versionMadeBy } #endif    when (OptVerbose `elem` opts) $ do

zip-archive.cabal view

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