pipes-lzma 0.1.0.0 → 0.1.1.0

raw patch · 3 files changed

+12/−6 lines, 3 filesdep ~base

Dependency ranges changed: base

Files

• Test.hs +2/−0
• pipes-lzma.cabal +4/−2
• src/Pipes/Lzma.hs +6/−4

@@ -1,4 +1,6 @@ import Control.Monad (void)+import Control.Applicative ((<$>))+ import Pipes import Pipes.Lzma import qualified Pipes.Prelude as PP

@@ -1,5 +1,5 @@ name:                pipes-lzma-version:             0.1.0.0+version:             0.1.1.0 synopsis:            LZMA compressors and decompressors for the Pipes package description:     This package provides a @pipes@ interface to the LZMA compression algorithm@@ -13,6 +13,7 @@ category:            Codec build-type:          Simple cabal-version:       >=1.10+tested-with:         GHC ==7.8.4, GHC ==7.10.3, GHC == 8.0.1  source-repository head   type:                git@@ -27,7 +28,8 @@   hs-source-dirs:      src   default-language:    Haskell2010 -executable pipes-lzma-tests+test-suite pipes-lzma-tests+  type:                exitcode-stdio-1.0   main-is:             Test.hs   build-depends:       base >=4.6 && <4.10,                        bytestring,

@@ -33,14 +33,16 @@ import Data.ByteString (ByteString) import qualified Data.ByteString as BS import qualified Codec.Compression.Lzma as Lzma+import Data.Monoid (mempty)+import Prelude --- | Decompress a 'ByteString'+-- | Decompress a 'ByteString'. decompress :: forall m r. MonadIO m            => Producer ByteString m r            -> Producer ByteString m (Producer ByteString m r) decompress = decompressWith Lzma.defaultDecompressParams --- | Decompress a 'ByteString'.+-- | Decompress a 'ByteString' with a given set of 'Lzma.DecompressParams'. decompressWith :: forall m r. MonadIO m                => Lzma.DecompressParams                -> Producer ByteString m r@@ -67,13 +69,13 @@     go _prod (Lzma.DecompressStreamError err) =         fail $ "Pipes.Lzma.decompress: Error "++show err --- | Compress a 'ByteString'+-- | Compress a 'ByteString'. compress :: forall m r. MonadIO m          => Producer ByteString m r          -> Producer ByteString m r compress = compressWith Lzma.defaultCompressParams --- | Compress a 'ByteString'+-- | Compress a 'ByteString' with a given set of 'Lzma.CompressParams'. compressWith :: forall m r. MonadIO m              => Lzma.CompressParams              -> Producer ByteString m r