diff options
Diffstat (limited to 'compiler/specialise')
| -rw-r--r-- | compiler/specialise/Rules.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/specialise/Rules.hs b/compiler/specialise/Rules.hs index 1dcff82f24..83b4e8dd9c 100644 --- a/compiler/specialise/Rules.hs +++ b/compiler/specialise/Rules.hs @@ -263,7 +263,7 @@ pprRulesForUser :: DynFlags -> [CoreRule] -> SDoc pprRulesForUser dflags rules = withPprStyle (defaultUserStyle dflags) $ pprRules $ - sortBy (comparing ru_name) $ + sortBy (comparing ruleName) $ tidyRules emptyTidyEnv rules {- @@ -420,7 +420,7 @@ findBest target (rule1,ans1) ((rule2,ans2):prs) | rule2 `isMoreSpecific` rule1 = findBest target (rule2,ans2) prs | debugIsOn = let pp_rule rule = sdocWithPprDebug $ \dbg -> if dbg then ppr rule - else doubleQuotes (ftext (ru_name rule)) + else doubleQuotes (ftext (ruleName rule)) in pprTrace "Rules.findBest: rule overlap (Rule 1 wins)" (vcat [ sdocWithPprDebug $ \dbg -> if dbg then text "Expression to match:" <+> ppr fn |