diff options
| author | Vaibhav Sagar <vaibhavsagar@gmail.com> | 2019-11-12 14:01:42 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-12-14 20:50:08 -0500 |
| commit | 9ff54ea8260b1b1508a19e968eb4584cb5cef93c (patch) | |
| tree | 3a656beeddb8a5c1c2e0e0d2ac72a82e6a5e6adb /libraries | |
| parent | c43ee6b81bd544ae338f9287a7b1edb646d51531 (diff) | |
| download | haskell-9ff54ea8260b1b1508a19e968eb4584cb5cef93c.tar.gz | |
Data.Functor.Classes: fix Ord1 instance for Down
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/Data/Functor/Classes.hs | 5 | ||||
| -rw-r--r-- | libraries/base/changelog.md | 2 |
2 files changed, 6 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 diff --git a/libraries/base/changelog.md b/libraries/base/changelog.md index 6c9bd23184..0bf4dc1ab7 100644 --- a/libraries/base/changelog.md +++ b/libraries/base/changelog.md @@ -33,6 +33,8 @@ have an HasCallStack constraint. Hopefully providing better error messages in case they are used in unexpected ways. + * Fix the `Ord1` instance for `Data.Ord.Down` to reverse sort order. + ## 4.16.0.0 *Nov 2021* * The unary tuple type, `Solo`, is now exported by `Data.Tuple`. |