diff options
| -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 |