Add concurrently_ to match non-lifted async library (#22)

lifted-async.cabal

@@ -36,7 +36,7 @@ library
     Control.Concurrent.Async.Lifted.Safe
   build-depends:
       base >= 4.5 && < 4.11
-    , async >= 2.0.1 && < 2.2
+    , async >= 2.1.1 && < 2.2
     , lifted-base >= 0.2 && < 0.3
     , transformers-base >= 0.4 && < 0.5
   if flag(monad-control-1)

src/Control/Concurrent/Async/Lifted.hs

@@ -63,7 +63,7 @@ module Control.Concurrent.Async.Lifted
   , link, link2
 
     -- * Convenient utilities
-  , race, race_, concurrently
+  , race, race_, concurrently, concurrently_
   , mapConcurrently, mapConcurrently_
   , forConcurrently, forConcurrently_
   , Concurrently(..)
@@ -362,6 +362,10 @@ concurrently left right =
   waitBoth a b
 {-# INLINABLE concurrently #-}
 
+concurrently_ :: MonadBaseControl IO m => m a -> m b -> m ()
+concurrently_ left right = void $ concurrently left right
+{-# INLINABLE concurrently_ #-}
+
 -- | Generalized version of 'A.mapConcurrently'.
 mapConcurrently
   :: (Traversable t, MonadBaseControl IO m)

src/Control/Concurrent/Async/Lifted/Safe.hs

@@ -67,7 +67,7 @@ module Control.Concurrent.Async.Lifted.Safe
   , Unsafe.link, Unsafe.link2
 
     -- * Convenient utilities
-  , race, race_, concurrently
+  , race, race_, concurrently, concurrently_
   , mapConcurrently, mapConcurrently_
   , forConcurrently, forConcurrently_
   , Concurrently(..)
@@ -327,6 +327,11 @@ concurrently
   => m a -> m b -> m (a, b)
 concurrently = liftBaseOp2_ A.concurrently
 
+concurrently_
+  :: forall m a b. (MonadBaseControl IO m, Forall (Pure m))
+  => m a -> m b -> m ()
+concurrently_ = liftBaseOp2_ A.concurrently_
+
 -- | Similar to 'A.liftBaseOp_' but takes a binary function
 -- and leverages @'StM' m a ~ a@.
 liftBaseOp2_