haskell/zip-stream
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleanup warnings and bump lts resolver

Browse Source
This commit is contained in:
Dylan Simon 2017-10-17 15:39:01 -04:00
parent f6a40e6d21
commit 075bfdad8f
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Codec/Archive/Zip/Conduit/Internal.hs
View File

@ -15,7 +15,7 @@ import qualified Data.ByteString as BS
import qualified Data.Conduit as C import qualified Data.Conduit as C
import qualified Data.Conduit.Internal as CI import qualified Data.Conduit.Internal as CI
import Data.Digest.CRC32 (crc32Update) import Data.Digest.CRC32 (crc32Update)
import Data.Word (Word8, Word16, Word32, Word64) import Data.Word (Word8, Word32, Word64)
import Codec.Archive.Zip.Conduit.Types import Codec.Archive.Zip.Conduit.Types

2
Codec/Archive/Zip/Conduit/UnZip.hs
View File

@ -152,7 +152,7 @@ unZipStream = next where
centralBody sig = fail $ "Unknown header signature: " ++ show sig centralBody sig = fail $ "Unknown header signature: " ++ show sig
fileHeader = do fileHeader = do
ver <- G.getWord8 ver <- G.getWord8
G.getWord8 -- OS Version _os <- G.getWord8 -- OS Version (could require 0 = DOS, but we ignore ext attrs altogether)
when (ver > zipVersion) $ fail $ "Unsupported version: " ++ show ver when (ver > zipVersion) $ fail $ "Unsupported version: " ++ show ver
gpf <- G.getWord16le gpf <- G.getWord16le
-- when (gpf .&. complement (bit 1 .|. bit 2 .|. bit 3) /= 0) $ fail $ "Unsupported flags: " ++ show gpf -- when (gpf .&. complement (bit 1 .|. bit 2 .|. bit 3) /= 0) $ fail $ "Unsupported flags: " ++ show gpf

2
stack.yaml
View File

@ -1,4 +1,4 @@
resolver: lts-8.13 resolver: lts-8.24
packages: packages:
- '.' - '.'
extra-deps: [] extra-deps: []