effectful 1.0.0.0 → 1.1.0.0
raw patch · 3 files changed
+21/−13 lines, 3 filesdep ~effectful-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: effectful-core
API changes (from Hackage documentation)
Files
- CHANGELOG.md +5/−0
- effectful.cabal +10/−8
- tests/UnliftTests.hs +6/−5
CHANGELOG.md view
@@ -1,2 +1,7 @@+# effectful-1.1.0.0 (2022-07-19)+* Don't reset the `UnliftStrategy` to `SeqUnlift` inside the continuation of+ `withEffToIO`.+* Add `withReader`.+ # effectful-1.0.0.0 (2021-07-13) * Initial release.
effectful.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.4 build-type: Simple name: effectful-version: 1.0.0.0+version: 1.1.0.0 license: BSD-3-Clause license-file: LICENSE category: Control@@ -9,12 +9,14 @@ author: Andrzej Rybczak synopsis: An easy to use, performant extensible effects library. -description: An easy to use, performant extensible effects library with seamless- integration with the existing Haskell ecosystem.- .- This is the "batteries-included" variant; See the- @<https://hackage.haskell.org/package/effectful-core effectful-core>@- package if you need a more limited dependency footprint.+description:+ An easy to use, performant extensible effects library with seamless+ integration with the existing Haskell ecosystem.+ .+ This is the "batteries-included" variant. See the+ @<https://hackage.haskell.org/package/effectful-core effectful-core>@ package+ if you need a more limited dependency footprint or want to browse+ documentation of core modules. extra-source-files: CHANGELOG.md@@ -65,7 +67,7 @@ , async >= 2.2.2 , bytestring >= 0.10 , directory >= 1.3.2- , effectful-core >= 1.0.0.0 && < 1.0.1.0+ , effectful-core >= 1.1.0.0 && < 1.2.0.0 , process >= 1.6.9 , time >= 1.9.2
tests/UnliftTests.hs view
@@ -10,7 +10,7 @@ unliftTests :: TestTree unliftTests = testGroup "Unlift"- [ testCase "Reset strategy in new thread" test_resetStrategy+ [ testCase "Strategy stays the same in a new thread" test_threadStrategy , testCase "SeqUnlift in new thread" test_seqUnliftInNewThread , testGroup "Ephemeral strategy" [ testCase "Invalid limit" test_ephemeralInvalid@@ -24,12 +24,13 @@ ] ] -test_resetStrategy :: Assertion-test_resetStrategy = runEff $ do- s <- withUnliftStrategy (ConcUnlift Ephemeral Unlimited) $ do+test_threadStrategy :: Assertion+test_threadStrategy = runEff $ do+ let strategy = ConcUnlift Ephemeral Unlimited+ s <- withUnliftStrategy strategy $ do withEffToIO $ \runInIO -> do inThread $ runInIO unliftStrategy- U.assertEqual "correct strategy" SeqUnlift s+ U.assertEqual "correct strategy" strategy s test_seqUnliftInNewThread :: Assertion test_seqUnliftInNewThread = runEff $ do