fold-debounce-conduit 0.1.0.0 → 0.1.0.1
raw patch · 3 files changed
+20/−6 lines, 3 filesdep ~hspecdep ~stmdep ~transformersPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: hspec, stm, transformers
API changes (from Hackage documentation)
- Data.Conduit.FoldDebounce: cb :: Args i o -> o -> IO ()
- Data.Conduit.FoldDebounce: fold :: Args i o -> o -> i -> o
- Data.Conduit.FoldDebounce: init :: Args i o -> o
+ Data.Conduit.FoldDebounce: [cb] :: Args i o -> o -> IO ()
+ Data.Conduit.FoldDebounce: [fold] :: Args i o -> o -> i -> o
+ Data.Conduit.FoldDebounce: [init] :: Args i o -> o
Files
ChangeLog.md view
@@ -1,5 +1,13 @@ # Revision history for fold-debounce-conduit +## 0.1.0.1 -- 2016-05-03++* Bump dependency version upper bounds.+* Expand dependency lower bound for stm. Now it supports stm-2.4.2,+ which is provided by Haskell Platform 2013.2.0.0.+++ ## 0.1.0.0 -- 2015-06-22 * First version. Released on an unsuspecting world.
fold-debounce-conduit.cabal view
@@ -1,5 +1,5 @@ name: fold-debounce-conduit-version: 0.1.0.0+version: 0.1.0.1 author: Toshio Ito <debug.ito@gmail.com> maintainer: Toshio Ito <debug.ito@gmail.com> license: BSD3@@ -16,7 +16,7 @@ library default-language: Haskell2010 hs-source-dirs: src- ghc-options: -Wall+ ghc-options: -Wall -fno-warn-unused-imports exposed-modules: Data.Conduit.FoldDebounce -- other-modules: default-extensions: FlexibleContexts@@ -24,8 +24,8 @@ conduit >=1.2.4 && <1.3, fold-debounce >=0.2.0 && <0.3, resourcet >=1.1.5 && <1.2,- stm >=2.4.4 && <2.5,- transformers >=0.3.0 && <0.5,+ stm >=2.4.2 && <2.5,+ transformers >=0.3.0 && <0.6, transformers-base >=0.4.4 && <0.5 -- executable fold-debounce-conduit@@ -41,12 +41,12 @@ type: exitcode-stdio-1.0 default-language: Haskell2010 hs-source-dirs: test- ghc-options: -Wall+ ghc-options: -Wall -fno-warn-unused-imports "-with-rtsopts=-M512m" main-is: Spec.hs other-modules: Data.Conduit.FoldDebounceSpec build-depends: base, fold-debounce-conduit, stm, conduit, transformers, resourcet,- hspec >=2.1.7 && <2.2+ hspec >=2.1.7 && <2.3 source-repository head type: git
test/Data/Conduit/FoldDebounceSpec.hs view
@@ -69,6 +69,9 @@ threadDelay 20000 atomically (readTVar terminated) `shouldReturn` True it "should terminate the debounced Source gracefully if the original Source throws exception" $ do+ -- For now, the exception in the original Source is not handled,+ -- i.e., we just let it terminate the thread. So we'll see the+ -- error message while running the test. let s = (periodicSource 1000 ["a", "b"]) >> error "Exception in origSource" >> (periodicSource 1000 ["c", "d"]) ret <- runResourceT $ debMonoid 100000 s $$ CL.consume ret `shouldBe` ["ab"]@@ -109,6 +112,9 @@ threadDelay 20000 atomically (readTVar released) `shouldReturn` True it "should release the resource in the original Source when the original Source throws exception" $ do+ -- Because the error is not handled, we'll see the error message+ -- while running the test. (See above for the case "original+ -- Source throwing exception") (released, orig_source) <- attachResource (periodicSource 10000 ["a", "b"] >> error "Exception in source") ret <- runResourceT $ debMonoid 500000 orig_source $$ CL.consume ret `shouldBe` ["ab"]