diff --git a/async-extras.cabal b/async-extras.cabal
--- a/async-extras.cabal
+++ b/async-extras.cabal
@@ -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
diff --git a/src/Control/Concurrent/Async/Extra.hs b/src/Control/Concurrent/Async/Extra.hs
--- a/src/Control/Concurrent/Async/Extra.hs
+++ b/src/Control/Concurrent/Async/Extra.hs
@@ -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_
diff --git a/src/Control/Concurrent/Async/Lifted/Extra.hs b/src/Control/Concurrent/Async/Lifted/Extra.hs
--- a/src/Control/Concurrent/Async/Lifted/Extra.hs
+++ b/src/Control/Concurrent/Async/Lifted/Extra.hs
@@ -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_