From 3dd0430628830814d33128e2b4ba5463ef3c6187 Mon Sep 17 00:00:00 2001
From: Malte Sommerkorn <malte.sommerkorn@googlemail.com>
Date: Thu, 24 Mar 2011 20:15:00 +0100
Subject: [PATCH] -Wall

---
 Codec/Zlib/Enum.hs |  2 +-
 test.hs            | 10 ++++------
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/Codec/Zlib/Enum.hs b/Codec/Zlib/Enum.hs
index 778c3cc..0edff9d 100644
--- a/Codec/Zlib/Enum.hs
+++ b/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
diff --git a/test.hs b/test.hs
index ca40b42..f6c8765 100644
--- a/test.hs
+++ b/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