Permalink
Browse files

Newer zlib-enum

  • Loading branch information...
1 parent c915c4f commit e6349e8b3b4c4a002bbea5a339203c2199fd6cca @snoyberg committed Mar 28, 2011
Showing with 2 additions and 4 deletions.
  1. +1 −2 Network/HTTP/Enumerator.hs
  2. +1 −2 http-enumerator.cabal
@@ -102,7 +102,6 @@ import Data.Monoid (Monoid (..))
import qualified Network.HTTP.Types as W
import qualified Data.CaseInsensitive as CI
import Data.Int (Int64)
-import qualified Codec.Zlib
import qualified Codec.Zlib.Enum as Z
import Control.Monad.IO.Control (MonadControlIO, liftIOOp)
import Data.Map (Map)
@@ -273,7 +272,7 @@ http Request {..} bodyStep m = do
Nothing -> x
let decompress x =
if ("content-encoding", "gzip") `elem` hs'
- then joinI $ Z.decompress (Codec.Zlib.WindowBits 31) x
+ then joinI $ Z.ungzip x
else returnI x
if method == "HEAD"
then bodyStep s hs'
View
@@ -28,8 +28,7 @@ library
, attoparsec-enumerator >= 0.2 && < 0.3
, utf8-string >= 0.3.4 && < 0.4
, blaze-builder >= 0.2.1 && < 0.4
- , zlib-bindings >= 0.0 && < 0.1
- , zlib-enum >= 0.1 && < 0.2
+ , zlib-enum >= 0.2 && < 0.3
, http-types >= 0.6 && < 0.7
, blaze-builder-enumerator >= 0.2 && < 0.3
, tls >= 0.4 && < 0.5

0 comments on commit e6349e8

Please sign in to comment.