... | ... | @@ -106,16 +106,14 @@ This variant can be used if you require support for GHC \< 8.0 **and** you do ** |
|
|
#endif
|
|
|
#if!(MIN_VERSION_base(4,8,0))-- starting with base-4.8, Monoid is rexported from PreludeimportData.Monoid#endif
|
|
|
|
|
|
appendFoo::Foo->Foo->FooappendFoo=…emptyFoo::FooemptyFoo=…#ifMIN_VERSION_base(4,9,0)instanceSem.SemigroupFoowhere(<>)= appendFoo
|
|
|
appendFoo::Foo->Foo->FooappendFoo=…#ifMIN_VERSION_base(4,9,0)instanceSem.SemigroupFoowhere(<>)= appendFoo
|
|
|
#endif
|
|
|
|
|
|
instanceMonoidFoowhere
|
|
|
mempty = emptyFoo
|
|
|
|
|
|
#ifMIN_VERSION_base(4,11,0)-- starting with base-4.11, mappend definitions are redundant;-- at some point `mappend` will be removed from `Monoid`#elif MIN_VERSION_base(4,9,0)
|
|
|
mempty =…#ifMIN_VERSION_base(4,11,0)-- starting with base-4.11, mappend definitions are redundant;-- at some point `mappend` will be removed from `Monoid`#elif MIN_VERSION_base(4,9,0)
|
|
|
mappend =(Sem.<>)#else// base <4.9-- prior to GHC 8.0 / base-4.9 where no `Semigroup` class existed
|
|
|
mappend = appendFoo
|
|
|
# endif
|
|
|
#endif
|
|
|
|
|
|
```
|
|
|
|
... | ... | |