shithub: MicroHs

ref: 8115958c9d88e87192d6f7ea3f8ba14e5e0d0ce3
dir: /lib/Data/Monoid.hs/

View raw version 
module Data.Monoid(module Data.Monoid) where
import Primitives
import Data.Semigroup

class Semigroup a => Monoid a where
  mempty :: a
  mappend :: a -> a -> a
  mappend = (<>)