-- concatM ---------------------------------------------------------------------

concatM :: (Functor m, Monad m) => [m [a]] -> m [a]
concatM = fmap concat . sequence
concatM :: (Functor m, Monad m) => [m [a]] -> m [a]
concatM = fmap concat . sequence
concatM = fmap concat . sequence