Simon Peyton Jones pushed to branch wip/spj-reinstallable-base at Glasgow Haskell Compiler / GHC
Commits:
-
0a767c33
by Simon Peyton Jones at 2026-04-07T17:43:00+01:00
1 changed file:
Changes:
| ... | ... | @@ -668,10 +668,12 @@ stableNameCmp (Name { n_sort = s1, n_occ = occ1 }) |
| 668 | 668 | -- The ordinary compare on OccNames is lexicographic
|
| 669 | 669 | where
|
| 670 | 670 | -- Later constructors are bigger
|
| 671 | + -- Compare External and KnownKey solely module
|
|
| 671 | 672 | sort_cmp (External m1) (External m2) = m1 `stableModuleCmp` m2
|
| 673 | + sort_cmp (External m1) (KnownKey m2) = m1 `stableModuleCmp` m2
|
|
| 672 | 674 | sort_cmp (External {}) _ = LT
|
| 673 | 675 | |
| 674 | - sort_cmp (KnownKey {}) (External {}) = GT
|
|
| 676 | + sort_cmp (KnownKey m1) (External m2) = m1 `stableModuleCmp` m2
|
|
| 675 | 677 | sort_cmp (KnownKey m1) (KnownKey m2) = m1 `stableModuleCmp` m2
|
| 676 | 678 | sort_cmp (KnownKey {}) _ = LT
|
| 677 | 679 |