diff options
Diffstat (limited to 'libraries/base/Data/Functor/Classes.hs')
| -rw-r--r-- | libraries/base/Data/Functor/Classes.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libraries/base/Data/Functor/Classes.hs b/libraries/base/Data/Functor/Classes.hs index 2d119144ec..1bca124589 100644 --- a/libraries/base/Data/Functor/Classes.hs +++ b/libraries/base/Data/Functor/Classes.hs @@ -834,7 +834,10 @@ instance Eq1 Down where -- | @since 4.12.0.0 instance Ord1 Down where - liftCompare comp (Down x) (Down y) = comp x y + liftCompare comp (Down x) (Down y) = case comp x y of + LT -> GT + EQ -> EQ + GT -> LT -- | @since 4.12.0.0 instance Read1 Down where |