async-extras 0.1.3.1 → 0.1.3.2

raw patch · 3 files changed

+7/−1 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• async-extras.cabal +1/−1
• src/Control/Concurrent/Async/Extra.hs +3/−0
• src/Control/Concurrent/Async/Lifted/Extra.hs +3/−0

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                async-extras-version:             0.1.3.1+version:             0.1.3.2 synopsis:            Extra Utilities for the Async Library -- description:          homepage:            http://github.com/jfischoff/async-extras

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE RecursiveDo #-} {-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE RankNTypes #-}@@ -28,8 +29,10 @@ sequenceConcurrently :: Traversable t => t (IO a) -> IO (t a) sequenceConcurrently = runConcurrently . traverse Concurrently +#if !MIN_VERSION_async(2,1,1) mapConcurrently_ :: Foldable t => (a -> IO b) -> t a -> IO () mapConcurrently_ f = runConcurrently . traverse_ (Concurrently . f)+#endif  forConcurrently_ :: Foldable t => t a -> (a -> IO b) -> IO () forConcurrently_ = flip mapConcurrently_

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE RecursiveDo #-} {-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE FlexibleContexts #-}@@ -40,8 +41,10 @@                      => t (m a) -> m (t a) sequenceConcurrently = runConcurrently . traverse Concurrently +#if !MIN_VERSION_lifted_async(0,9,1) mapConcurrently_ :: (Foldable t, MonadBaseControl IO m) => (a -> m b) -> t a -> m () mapConcurrently_ f = runConcurrently . traverse_ (Concurrently . f)+#endif  forConcurrently_ :: (Foldable t, MonadBaseControl IO m) => t a -> (a -> m b) -> m () forConcurrently_ = flip mapConcurrently_