diff options
| author | MichaWiedenmann1 <mw-r1@gmx.de> | 2021-11-06 09:16:04 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-12-14 20:53:16 -0500 |
| commit | 55cb2aa7afe6bac040b925e1cf6c9e7b2101a32a (patch) | |
| tree | e04e04cb1d55da4456cfd71ec4e9e3538f36c439 | |
| parent | 7c2609d8e951159f07dbca97d1076d029f431f44 (diff) | |
| download | haskell-55cb2aa7afe6bac040b925e1cf6c9e7b2101a32a.tar.gz | |
Fixes typo in documentation of the Semigroup instance of Equivalence
| -rw-r--r-- | libraries/base/Data/Functor/Contravariant.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Data/Functor/Contravariant.hs b/libraries/base/Data/Functor/Contravariant.hs index 6ac9f38f81..57f8c83c50 100644 --- a/libraries/base/Data/Functor/Contravariant.hs +++ b/libraries/base/Data/Functor/Contravariant.hs @@ -280,7 +280,7 @@ newtype Equivalence a = Equivalence { getEquivalence :: a -> a -> Bool } -- @ -- (<>) :: Equivalence a -> Equivalence a -> Equivalence a -- Equivalence equiv <> Equivalence equiv' = Equivalence \a b -> - -- equiv a b && equiv a b + -- equiv a b && equiv' a b -- @ Semigroup , -- | @'mempty'@ on equivalences always returns @True@. Without |