module Utils.Base (
    mconcatM
) where

import           Control.Monad.Extra (mconcatMapM)

mconcatM :: (Monad m, Monoid b)
    => [m b]
    -> m b
mconcatM :: forall (m :: * -> *) b. (Monad m, Monoid b) => [m b] -> m b
mconcatM = (m b -> m b) -> [m b] -> m b
forall (m :: * -> *) b a.
(Monad m, Monoid b) =>
(a -> m b) -> [a] -> m b
mconcatMapM m b -> m b
forall a. a -> a
id