module Language.PureScript.Docs.Utils.MonoidExtras where import Data.Monoid (Monoid(..), (<>)) mintersperse :: (Monoid m) => m -> [m] -> m mintersperse :: forall m. Monoid m => m -> [m] -> m mintersperse m _ [] = forall a. Monoid a => a mempty mintersperse m _ [m x] = m x mintersperse m sep (m x:[m] xs) = m x forall a. Semigroup a => a -> a -> a <> m sep forall a. Semigroup a => a -> a -> a <> forall m. Monoid m => m -> [m] -> m mintersperse m sep [m] xs