diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2015-01-29 13:32:58 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2015-01-29 13:32:58 +0100 |
| commit | 348df976743964ab838714e01f4bcac752c5dfc4 (patch) | |
| tree | 193d03f8d97094da8f20e50950d86ac8aa3175ea /compiler/iface/MkIface.hs | |
| parent | 07ee96faac4996cde0ab82789eec0b70d1a35af0 (diff) | |
| download | haskell-wip/T4879.tar.gz | |
Support re-export deprecations (re #4879)wip/T4879
This is basically the patch originally implemented by Ian Lynagh
forward-ported to GHC 7.10/11
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 {- |