Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

-Wall

  • Loading branch information...
commit 3dd0430628830814d33128e2b4ba5463ef3c6187 1 parent 9db9966
@maltem maltem authored
Showing with 5 additions and 7 deletions.
  1. +1 −1  Codec/Zlib/Enum.hs
  2. +4 −6 test.hs
View
2  Codec/Zlib/Enum.hs
@@ -2,7 +2,7 @@ module Codec.Zlib.Enum (
-- * Enumeratees
compress, decompress,
-- * Re-exported from zlib-bindings
- WindowBits, defaultWindowBits
+ WindowBits (..), defaultWindowBits
) where
import Codec.Zlib
View
10 test.hs
@@ -20,20 +20,17 @@ module Main where
import Prelude
--- import Data.Word (Word8)
-import Data.String (fromString)
+import Data.String ()
import Data.ByteString (ByteString)
import qualified Data.ByteString as B
-import qualified Data.ByteString.Char8 as BC
import qualified Data.ByteString.Lazy as L
import Data.Enumerator
- ( Stream (..), Step (..), Iteratee (..), Enumerator, Enumeratee
- , ($$), returnI, yield, continue, joinI, run, run_ )
+ ( Iteratee (..), Enumeratee
+ , ($$), joinI, run_ )
import qualified Data.Enumerator as E
import qualified Data.Enumerator.List as EL
-import qualified Data.Enumerator.Text as ET
import qualified Data.Enumerator.Binary as EB
import Control.Monad (foldM)
@@ -59,6 +56,7 @@ import Test.Framework.Providers.QuickCheck2 (testProperty)
-- | QuickCheck wants a Show instance for WindowBits
instance Show WindowBits where
show (WindowBits n) = "WindowBits " ++ show n
+ show _ = "DefaultWindowBits" -- not exported from zlib
-- | Random values for WindowBits: 15 or 31
instance Arbitrary WindowBits where
Please sign in to comment.
Something went wrong with that request. Please try again.