path: root/src/Data/Monoid/Extra.hs

module Data.Monoid.Extra where


mintercalate :: Monoid b => b -> [b] -> b
mintercalate c (h:t) = foldl (\acc x -> acc <> c <> x) h t
mintercalate _ [] = mempty