module Pipes.GZip (
decompress
, compress
, ZC.defaultCompression
, ZC.noCompression
, ZC.bestSpeed
, ZC.bestCompression
, ZC.compressionLevel
) where
import qualified Codec.Compression.Zlib as ZC
import qualified Data.ByteString as B
import Pipes
import qualified Pipes.Zlib
decompress
:: MonadIO m
=> Producer' B.ByteString m r
-> Producer' B.ByteString m r
decompress = Pipes.Zlib.decompress (ZC.WindowBits 31)
compress
:: MonadIO m
=> ZC.CompressionLevel
-> Producer' B.ByteString m r
-> Producer' B.ByteString m r
compress clevel = Pipes.Zlib.compress clevel (ZC.WindowBits 31)