Generalise constraint on `instance Monoid (Maybe a)` to Semigroup
authorHerbert Valerio Riedel <hvr@gnu.org>
Tue, 19 Sep 2017 05:54:40 +0000 (07:54 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Tue, 19 Sep 2017 05:56:52 +0000 (07:56 +0200)
This now becomes possible due to the introduction of the
Semigroup=>Monoid superclass relation (see #14191).

Reviewers: ekmett, RyanGlScott, austin, bgamari

Reviewed By: ekmett, RyanGlScott, bgamari

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3972

libraries/base/GHC/Base.hs
libraries/base/changelog.md
testsuite/tests/ghci/scripts/T4175.stdout

index 82b99a8..052f13f 100644 (file)
@@ -413,12 +413,13 @@ instance Semigroup a => Semigroup (Maybe a) where
 -- | Lift a semigroup into 'Maybe' forming a 'Monoid' according to
 -- <http://en.wikipedia.org/wiki/Monoid>: \"Any semigroup @S@ may be
 -- turned into a monoid simply by adjoining an element @e@ not in @S@
--- and defining @e*e = e@ and @e*s = s = s*e@ for all @s ∈ S@.\" Since
--- there used to be no \"Semigroup\" typeclass providing just 'mappend',
--- we use 'Monoid' instead.
+-- and defining @e*e = e@ and @e*s = s = s*e@ for all @s ∈ S@.\"
+--
+-- /Since 4.11.0/: constraint on inner @a@ value generalised from
+-- 'Monoid' to 'Semigroup'.
 --
 -- @since 2.01
-instance Monoid a => Monoid (Maybe a) where
+instance Semigroup a => Monoid (Maybe a) where
     mempty = Nothing
 
 -- | For tuples, the 'Monoid' constraint on @a@ determines
index eac53ba..f641299 100644 (file)
@@ -14,6 +14,9 @@
     export `Semigroup` from `Prelude`; remove `Monoid` reexport
     from `Data.Semigroup` (#14191).
 
+  * Generalise `instance Monoid a => Monoid (Maybe a)` to
+    `instance Semigroup a => Monoid (Maybe a)`.
+
   * Add `infixl 9 !!` declaration for `Data.List.NonEmpty.!!`
 
   * Add `<&>` operator to `Data.Functor` (#14029)
index 7b630f1..c7421b5 100644 (file)
@@ -34,7 +34,7 @@ instance Applicative Maybe -- Defined in ‘GHC.Base’
 instance Eq a => Eq (Maybe a) -- Defined in ‘GHC.Base’
 instance Functor Maybe -- Defined in ‘GHC.Base’
 instance Monad Maybe -- Defined in ‘GHC.Base’
-instance Monoid a => Monoid (Maybe a) -- Defined in ‘GHC.Base’
+instance Semigroup a => Monoid (Maybe a) -- Defined in ‘GHC.Base’
 instance Ord a => Ord (Maybe a) -- Defined in ‘GHC.Base’
 instance Semigroup a => Semigroup (Maybe a)
   -- Defined in ‘GHC.Base’