conduit 1.3.2 → 1.3.2.1

raw patch · 4 files changed

+13/−5 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

ChangeLog.md +4/−0
conduit.cabal +6/−2
src/Data/Conduit/Combinators.hs +1/−1
test/main.hs +2/−2

ChangeLog.md view

@@ -1,5 +1,9 @@ # ChangeLog for conduit +## 1.3.2.1++* Fix isChunksForExactlyE [#445](https://github.com/snoyberg/conduit/issues/445) [#446](https://github.com/snoyberg/conduit/pull/446)+ ## 1.3.2  * Add `mapInputM` [#435](https://github.com/snoyberg/conduit/pull/435)

conduit.cabal view

@@ -1,5 +1,5 @@ Name:                conduit-Version:             1.3.2+Version:             1.3.2.1 Synopsis:            Streaming data processing library. description:     `conduit` is a solution to the streaming data problem, allowing for production,@@ -17,7 +17,7 @@ Maintainer:          michael@snoyman.com Category:            Data, Conduit Build-type:          Simple-Cabal-version:       >=1.8+Cabal-version:       >=1.10 Homepage:            http://github.com/snoyberg/conduit extra-source-files:  test/main.hs                    , test/doctests.hs@@ -27,6 +27,7 @@                    , fusion-macros.h  Library+  default-language:    Haskell2010   hs-source-dirs:      src   Exposed-modules:     Data.Conduit                        Data.Conduit.Combinators@@ -67,6 +68,7 @@   include-dirs:        .  test-suite conduit-test+    default-language:    Haskell2010     hs-source-dirs: test     main-is: main.hs     other-modules: Data.Conduit.Extra.ZipConduitSpec@@ -118,6 +120,7 @@ --     ghc-options:    -Wall -O2 -with-rtsopts=-s  benchmark optimize-201408+    default-language:    Haskell2010     type: exitcode-stdio-1.0     hs-source-dirs: benchmarks     build-depends:  base@@ -134,6 +137,7 @@     ghc-options:    -Wall -O2 -rtsopts  benchmark unfused+    default-language:    Haskell2010     type: exitcode-stdio-1.0     hs-source-dirs: benchmarks     build-depends:  base

src/Data/Conduit/Combinators.hs view

@@ -1819,7 +1819,7 @@ chunksOfExactlyE chunkSize = await >>= maybe (return ()) start     where         start b-            | onull b = chunksOfE chunkSize+            | onull b = chunksOfExactlyE chunkSize             | Seq.lengthIndex b < chunkSize = continue (Seq.lengthIndex b) [b]             | otherwise = let (first,rest) = Seq.splitAt chunkSize b in                             yield first >> start rest

test/main.hs view

@@ -716,8 +716,8 @@         describe "WriterT" $             it "pass" $                 let writer = W.pass $ do-                    W.tell [1 :: Int]-                    pure ((), (2:))+                      W.tell [1 :: Int]+                      pure ((), (2:))                 in execWriter (runConduit writer) `shouldBe` [2, 1]      describe "Data.Conduit.Lift" $ do