... | ... | @@ -153,16 +153,13 @@ import Data.Monoid |
|
|
appendFoo :: Foo -> Foo -> Foo
|
|
|
appendFoo = …
|
|
|
|
|
|
emptyFoo :: Foo
|
|
|
emptyFoo = …
|
|
|
|
|
|
#if MIN_VERSION_base(4,9,0)
|
|
|
instance Sem.Semigroup Foo where
|
|
|
(<>) = appendFoo
|
|
|
#endif
|
|
|
|
|
|
instance Monoid Foo where
|
|
|
mempty = emptyFoo
|
|
|
mempty = …
|
|
|
|
|
|
#if MIN_VERSION_base(4,11,0)
|
|
|
-- starting with base-4.11, mappend definitions are redundant;
|
... | ... | |