{- |
  Like `mapM_`, but all io operations are executed concurrently.
-}
cMapM_ :: (a -> IO b) -> [a] -> IO ()
cMapM_ f = concurrently_ . map f
cMapM_ :: (a -> IO b) -> [a] -> IO ()
cMapM_ f = concurrently_ . map f
cMapM_ f = concurrently_ . map f