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