Iteratee.hs

module Codec.Compression.Snappy.Iteratee where

import Data.Iteratee.Iteratee
import Data.ByteString
import qualified Codec.Compression.Snappy as S

compress, decompress :: Monad m => Enumeratee ByteString ByteString m a
compress = mapChunks S.compress
decompress = mapChunks S.decompress