diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2021-08-31 12:24:03 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-11 08:55:43 -0400 |
| commit | 5615737a63562402e686de3d08710577d45a01d7 (patch) | |
| tree | 0414c38cc9a5cd518ab37be7237cec4464d2bc9d | |
| parent | f987ec1a77beced08850142d7e38b0a39f05c3e6 (diff) | |
| download | haskell-5615737a63562402e686de3d08710577d45a01d7.tar.gz | |
Remove dubious Eq1 and Ord1 Fixed instances. Fixes #20309
| -rw-r--r-- | libraries/base/Data/Functor/Classes.hs | 9 | ||||
| -rw-r--r-- | libraries/base/changelog.md | 1 |
2 files changed, 0 insertions, 10 deletions
diff --git a/libraries/base/Data/Functor/Classes.hs b/libraries/base/Data/Functor/Classes.hs index ab64b9c468..2d119144ec 100644 --- a/libraries/base/Data/Functor/Classes.hs +++ b/libraries/base/Data/Functor/Classes.hs @@ -78,7 +78,6 @@ import Data.Complex (Complex((:+))) import GHC.Generics (Generic1(..), Generically1(..)) import GHC.Tuple (Solo (..)) import GHC.Read (expectP, list, paren) -import Data.Fixed (Fixed (..)) import Text.ParserCombinators.ReadPrec (ReadPrec, readPrec_to_S, readS_to_Prec) import Text.Read (Read(..), parens, prec, step) @@ -885,14 +884,6 @@ instance Show1 Complex where where complexPrec = 6 --- | @since 4.16.0.0 -instance Eq1 Fixed where - liftEq _eq (MkFixed x) (MkFixed y) = x == y - --- | @since 4.16.0.0 -instance Ord1 Fixed where - liftCompare _cmp (MkFixed x) (MkFixed y) = compare x y - -- Building blocks -- | @'readsData' p d@ is a parser for datatypes where each alternative diff --git a/libraries/base/changelog.md b/libraries/base/changelog.md index 0ce3960092..525cdbab72 100644 --- a/libraries/base/changelog.md +++ b/libraries/base/changelog.md @@ -49,7 +49,6 @@ `Generic1`, and `Data` instances for `GHC.Tuple.Solo`. * Add `Eq1`, `Read1` and `Show1` instances for `Complex`; - add `Eq1` and `Ord1` instances for `Fixed; add `Eq1/2`, `Ord1/2`, `Show1/2` and `Read1/2` instances for 3 and 4-tuples. * Remove `Data.Semigroup.Option` and the accompanying `option` function. |