Fixes typo in documentation of the Semigroup instance of Equivalence

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