lifted-async 0.10.0.6 → 0.10.1.1
raw patch · 4 files changed
+17/−4 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +8/−0
- lifted-async.cabal +7/−2
- src/Control/Concurrent/Async/Lifted.hs +1/−1
- src/Control/Concurrent/Async/Lifted/Safe.hs +1/−1
CHANGELOG.md view
@@ -1,5 +1,13 @@ # Revision history for lifted-async +## v0.10.1.1 - 2020-06-29++* Bump up cabal-version to 1.24++## v0.10.1 - 2020-06-29++* Fix typechecking errors with GHC HEAD 8.11 ([#31](https://github.com/maoe/lifted-async/pull/31))+ ## v0.10.0.6 - 2020-03-31 * Relax upper version bound for base to suppose GHC 8.10 ([#30](https://github.com/maoe/lifted-async/pull/30))
lifted-async.cabal view
@@ -1,5 +1,6 @@+cabal-version: 1.24 name: lifted-async-version: 0.10.0.6+version: 0.10.1.1 synopsis: Run lifted IO operations asynchronously and wait for their results homepage: https://github.com/maoe/lifted-async bug-reports: https://github.com/maoe/lifted-async/issues@@ -10,7 +11,6 @@ copyright: Copyright (C) 2012-2020 Mitsutoshi Aoe category: Concurrency build-type: Simple-cabal-version: >= 1.8 tested-with: GHC == 8.10.1 GHC == 8.8.3@@ -44,6 +44,7 @@ build-depends: constraints >= 0.2 && < 0.6 ghc-options: -Wall hs-source-dirs: src+ default-language: Haskell2010 test-suite test-lifted-async type: exitcode-stdio-1.0@@ -66,6 +67,7 @@ , tasty-expected-failure < 0.12 , tasty-hunit >= 0.9 && < 0.11 , tasty-th+ default-language: Haskell2010 test-suite regression-tests type: exitcode-stdio-1.0@@ -79,6 +81,7 @@ , mtl , tasty-hunit >= 0.9 && < 0.11 , tasty-th+ default-language: Haskell2010 benchmark benchmark-lifted-async type: exitcode-stdio-1.0@@ -91,6 +94,7 @@ , criterion , deepseq , lifted-async+ default-language: Haskell2010 benchmark benchmark-lifted-async-threaded type: exitcode-stdio-1.0@@ -103,6 +107,7 @@ , criterion , deepseq , lifted-async+ default-language: Haskell2010 source-repository head type: git
src/Control/Concurrent/Async/Lifted.hs view
@@ -448,7 +448,7 @@ Concurrently $ uncurry ($) <$> concurrently fs as instance MonadBaseControl IO m => Alternative (Concurrently m) where- empty = Concurrently $ liftBaseWith $ const (forever $ threadDelay maxBound)+ empty = Concurrently $ liftBaseWith $ \_ -> forever $ threadDelay maxBound Concurrently as <|> Concurrently bs = Concurrently $ either id id <$> race as bs
src/Control/Concurrent/Async/Lifted/Safe.hs view
@@ -432,7 +432,7 @@ instance (MonadBaseControl IO m, Forall (Pure m)) => Alternative (Concurrently m) where- empty = Concurrently $ liftBaseWith $ const (forever $ threadDelay maxBound)+ empty = Concurrently $ liftBaseWith $ \_ -> forever $ threadDelay maxBound Concurrently (as :: m a) <|> Concurrently bs = Concurrently (either id id <$> race as bs) \\ (inst :: Forall (Pure m) :- Pure m a)