Cleanup warnings and bump lts resolver

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

View File

@ -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

View File

@ -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

View File

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