Permalink
Browse files

Fix up types

  • Loading branch information...
1 parent 9d7814e commit ceb6696c068efc691c5037ced60ecc8c5469af22 maltem committed Jan 18, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 Codec/Zlib/Enum.hs
View
4 Codec/Zlib/Enum.hs
@@ -31,7 +31,7 @@ enumLoop done more = checkDone loop where
decompress :: MonadIO m
=> WindowBits -- ^ Zlib parameter (see the zlib-bindings package as well as the zlib C library)
- -> Enumeratee ByteString ByteString m ()
+ -> Enumeratee ByteString ByteString m a
decompress config step0 = do
inflate <- liftIO $ initInflate config
let done k = do lastChunk <- liftIO $ finishInflate inflate
@@ -46,7 +46,7 @@ decompress config step0 = do
compress :: MonadIO m
=> Int -- ^ Compression level
-> WindowBits -- ^ Zlib parameter (see the zlib-bindings package as well as the zlib C library)
- -> Enumeratee ByteString ByteString m ()
+ -> Enumeratee ByteString ByteString m a
compress level config step0 = do
deflate <- liftIO $ initDeflate level config
let done k = joinIO $ finishDeflate deflate (return . callback k)

0 comments on commit ceb6696

Please sign in to comment.