module Axel.Utils.Monad where

import Axel.Prelude

concatMapM :: (Monad m) => (a -> m [b]) -> [a] -> m [b]
concatMapM f xs = concat <$> mapM f xs