Haskell-book/15/orphan-instance/ListyInstances.hs


1
2
3
4
5
6
7
8
9

module ListyInstances where

import Data.Monoid
import Listy

instance Monoid (Listy a) where
    mempty = Listy []
    mappend (Listy l) (Listy l') =
        Listy $ mappend l l'