quiver-bytestring 0.0.0.2 → 1.0.0

raw patch · 3 files changed

+81/−31 lines, 3 filesdep ~quiverPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: quiver

API changes (from Hackage documentation)

Files

• README.md +8/−0
• quiver-bytestring.cabal +26/−30
• src/Control/Quiver/ByteString.lhs +47/−1

@@ -0,0 +1,8 @@+Quiver combinators for bytestring streaming+===========================================++    Copyright © 2015 Patryk Zadarnowski «pat@jantar.org».+    All rights reserved.++This library provides a set of combinators for efficient+streaming of bytestring data in the Quiver framework.

@@ -1,43 +1,39 @@-name:           quiver-bytestring-version:        0.0.0.2-synopsis:       Quiver combinators for bytestring streaming-homepage:       https://github.com/zadarnowski/quiver-bytestring-category:       Control-stability:      alpha--author:         Patryk Zadarnowski-maintainer:     Patryk Zadarnowski <pat@jantar.org>+name:               quiver-bytestring+version:            1.0.0+synopsis:           Quiver combinators for bytestring streaming+homepage:           https://github.com/zadarnowski/quiver-bytestring+category:           Control+stability:          alpha -copyright:      Copyright (c) 2015 Patryk Zadarnowski+author:             Patryk Zadarnowski+maintainer:         Patryk Zadarnowski <pat@jantar.org> -description:+copyright:          Copyright (c) 2015 Patryk Zadarnowski -    This library provides a set of combinators for efficient-    streaming of bytestring data in the Quiver framework.+description:        This library provides a set of combinators for efficient+                    streaming of bytestring data in the Quiver framework. -cabal-version:  >= 1.18-build-type:     Simple-license:        BSD3-license-file:   LICENSE+cabal-version:      >= 1.18+build-type:         Simple+license:            BSD3+license-file:       LICENSE+extra-source-files: README.md  source-repository head-  type:         git-  location:     https://github.com/zadarnowski/quiver-bytestring.git+  type:     git+  location: https://github.com/zadarnowski/quiver-bytestring.git  source-repository this-  type:         git-  location:     https://github.com/zadarnowski/quiver-bytestring.git-  tag:          0.0.0.2+  type:     git+  location: https://github.com/zadarnowski/quiver-bytestring.git+  tag:      1.0.0  library   hs-source-dirs:   src   default-language: Haskell2010-  ghc-options:      -Wall -fno-warn-unused-do-bind -fno-warn-missing-signatures--  exposed-modules:-    Control.Quiver.ByteString-+  ghc-options:      -O2 -Wall -fno-warn-unused-do-bind -fno-warn-missing-signatures+  exposed-modules:  Control.Quiver.ByteString   build-depends:-    base                    >= 4.8 && < 5,-    bytestring              >= 0.10.6.0,-    quiver                  >= 0.0.0.10+    base            >= 4.8 && < 5,+    bytestring      >= 0.10.6.0,+    quiver          >= 1.0.0

@@ -19,11 +19,16 @@  > module Control.Quiver.ByteString ( >   toChunks, fromChunks, fromChunks',+>   qGet, qPut,+>   qReadFile, qWriteFile, qAppendFile, > ) where +> import Control.Exception+> import Control.Monad+> import Control.Quiver.SP > import Data.ByteString (ByteString) > import Data.Int-> import Control.Quiver.SP+> import System.IO  > import qualified Data.ByteString as ByteString > import qualified Data.ByteString.Lazy as Lazy@@ -109,3 +114,44 @@ >                     GT -> let (c1, c2) = ByteString.splitAt (fromIntegral r) c in Lazy.fromChunks (reverse (c1:cs)) >:> loop2 n [] c2 (cl - r)  > loope cs = deliver (if null cs then SPComplete else SPFailed (reverse cs))++> -- | Quiver producer that reads the specified file handle in strict chunks,+> --   each up to @n@ bytes in size.++> qGet :: Handle -> Int -> SProducer ByteString IO IOException+> qGet h n = loop+>  where+>   loop = join $ qlift $ catch (ByteString.hGetSome h n >>= return . produceChunk) (return . spfailed)+>   produceChunk x+>     | ByteString.null x = spcomplete+>     | otherwise = x >:> loop++> -- | Quiver consumer that writes its input to the specified file handle.++> qPut :: Handle -> SConsumer ByteString IO IOException+> qPut h = loop+>  where+>   loop = consume () writeChunk spcomplete+>   writeChunk x = join $ qlift $ catch (ByteString.hPut h x >> return loop) (return . spfailed)++> -- | Quiver producer that reads the specified file in strict chunks,+> --   each up to @n@ bytes in size.++> qReadFile :: FilePath -> Int -> SProducer ByteString IO IOException+> qReadFile f n = join $ qlift $ catch (openBinaryFile f ReadMode >>= return . loop) (return . spfailed)+>  where+>   loop h = qhoist (flip onException $ hClose h) (qGet h n) >>= \r -> qlift (hClose h) >> return r++> -- | Quiver consumer that writes its input to the specified file.++> qWriteFile :: FilePath -> SConsumer ByteString IO IOException+> qWriteFile f = join $ qlift $ catch (openBinaryFile f WriteMode >>= return . loop) (return . spfailed)+>  where+>   loop h = qhoist (flip onException $ hClose h) (qPut h) >>= \r -> qlift (hClose h) >> return r++> -- | Quiver consumer that appends its input to the specified file.++> qAppendFile :: FilePath -> SConsumer ByteString IO IOException+> qAppendFile f = join $ qlift $ catch (openBinaryFile f AppendMode >>= return . loop) (return . spfailed)+>  where+>   loop h = qhoist (flip onException $ hClose h) (qPut h) >>= \r -> qlift (hClose h) >> return r