diff options
Diffstat (limited to 'libraries/base/Data')
| -rw-r--r-- | libraries/base/Data/Functor/Classes.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libraries/base/Data/Functor/Classes.hs b/libraries/base/Data/Functor/Classes.hs index d672c340d7..82d78778d7 100644 --- a/libraries/base/Data/Functor/Classes.hs +++ b/libraries/base/Data/Functor/Classes.hs @@ -74,6 +74,7 @@ import Data.Complex (Complex((:+))) 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) @@ -870,6 +871,14 @@ 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 |