Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Updated code for zlib-bindings >= 0.1

  • Loading branch information...
commit 82e68b0e805e5a9736899b352776a4b4147e98e2 1 parent aaa1eb1
@def-lkb def-lkb authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 Codec/Zlib/Enum.hs
View
6 Codec/Zlib/Enum.hs
@@ -41,7 +41,7 @@ decompress' inf (Continue k) = do
chunk <- liftIO $ finishInflate inf
lift $ runIteratee $ k $ Chunks [chunk]
Just bs -> do
- chunks <- liftIO $ withInflateInput inf bs $ callback
+ chunks <- liftIO $ (feedInflate inf bs >>= callback)
step <- lift $ runIteratee $ k $ Chunks chunks
decompress' inf step
decompress' _ step = return step
@@ -64,10 +64,10 @@ compress' def (Continue k) = do
x <- EL.head
case x of
Nothing -> do
- chunks <- liftIO $ finishDeflate def $ callback
+ chunks <- liftIO $ callback (finishDeflate def)
lift $ runIteratee $ k $ Chunks chunks
Just bs -> do
- chunks <- liftIO $ withDeflateInput def bs $ callback
+ chunks <- liftIO $ (feedDeflate def bs >>= callback)
step <- lift $ runIteratee $ k $ Chunks chunks
compress' def step
compress' _ step = return step
Please sign in to comment.
Something went wrong with that request. Please try again.