src/Data/Monoid/Extra.hs


1
2
3
4
5
6

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