Browse files

Re-export ZlibException (fixes #2) and fix a warning

  • Loading branch information...
1 parent 3d513b7 commit 4d2135f07d2350556433d021c806dfc7e6e77c79 @maltem maltem committed Mar 24, 2012
Showing with 4 additions and 4 deletions.
  1. +1 −1 Codec/Zlib/Enum.hs
  2. +3 −3 test.hs
View
2 Codec/Zlib/Enum.hs
@@ -2,7 +2,7 @@ module Codec.Zlib.Enum (
-- * Enumeratees
compress, decompress, gzip, ungzip,
-- * Re-exported from zlib-bindings
- WindowBits (..), defaultWindowBits
+ WindowBits (..), defaultWindowBits, ZlibException
) where
import Codec.Zlib
View
6 test.hs
@@ -266,13 +266,13 @@ prop_unconsumed win xs = monadicIO $ do
-- | Check if mapping the identity function doesn't affect anything
prop_map_id :: WindowBits -> [ByteString] -> Property
prop_map_id win xs = monadicIO $ do
- ys <- Q.run $ compressDecompressWith (E.map id) win xs
+ ys <- Q.run $ compressDecompressWith (EL.map id) win xs
assert (B.concat xs == ys)
-- | Check if mapping 'reverse . reverse' doesn't affect anything
prop_map_revrev :: WindowBits -> [ByteString] -> Property
prop_map_revrev win xs = monadicIO $ do
- ys <- Q.run $ compressDecompressWith (E.map $ B.reverse . B.reverse) win xs
+ ys <- Q.run $ compressDecompressWith (EL.map $ B.reverse . B.reverse) win xs
assert (B.concat xs == ys)
-- | Check if compressing and decompressing multiple times works
@@ -288,7 +288,7 @@ prop_files_map_id file win xs = monadicIO $ do
ys <- Q.run $ decompressFileWith enum win file
assert (B.concat xs == ys)
where
- enum = E.map id
+ enum = EL.map id
-- | Check compressing and decompressing a file with an Iteratee that
-- consumes only a few bytes

0 comments on commit 4d2135f

Please sign in to comment.