diff options
Diffstat (limited to 'compiler/iface/MkIface.hs')
| -rw-r--r-- | compiler/iface/MkIface.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/MkIface.hs b/compiler/iface/MkIface.hs index e7cc3adc19..7b89147f2c 100644 --- a/compiler/iface/MkIface.hs +++ b/compiler/iface/MkIface.hs @@ -1102,8 +1102,8 @@ mkIfaceExports exports sort_subs (Avail n) = Avail n sort_subs (AvailTC n []) = AvailTC n [] sort_subs (AvailTC n (m:ms)) - | n==m = AvailTC n (m:sortBy stableNameCmp ms) - | otherwise = AvailTC n (sortBy stableNameCmp (m:ms)) + | n==m = AvailTC n (m:sortBy (stableNameCmp `on` nameWarnName) ms) + | otherwise = AvailTC n (sortBy (stableNameCmp `on` nameWarnName) (m:ms)) -- Maintain the AvailTC Invariant {- |