module Language.PureScript.Docs.Utils.MonoidExtras where

import Data.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