Cleanup warnings and bump lts resolver
This commit is contained in:
parent
f6a40e6d21
commit
075bfdad8f
@ -15,7 +15,7 @@ import qualified Data.ByteString as BS
|
||||
import qualified Data.Conduit as C
|
||||
import qualified Data.Conduit.Internal as CI
|
||||
import Data.Digest.CRC32 (crc32Update)
|
||||
import Data.Word (Word8, Word16, Word32, Word64)
|
||||
import Data.Word (Word8, Word32, Word64)
|
||||
|
||||
import Codec.Archive.Zip.Conduit.Types
|
||||
|
||||
|
||||
@ -152,7 +152,7 @@ unZipStream = next where
|
||||
centralBody sig = fail $ "Unknown header signature: " ++ show sig
|
||||
fileHeader = do
|
||||
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
|
||||
gpf <- G.getWord16le
|
||||
-- when (gpf .&. complement (bit 1 .|. bit 2 .|. bit 3) /= 0) $ fail $ "Unsupported flags: " ++ show gpf
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
resolver: lts-8.13
|
||||
resolver: lts-8.24
|
||||
packages:
|
||||
- '.'
|
||||
extra-deps: []
|
||||
|
||||
Loading…
Reference in New Issue
Block a user