Commit 52307c17 authored by ian@well-typed.com's avatar ian@well-typed.com

Rename trace_dump to dump

It's no longer a trace-like function.
parent 34b29067
...@@ -1559,10 +1559,10 @@ tryRules env rules fn args call_cont ...@@ -1559,10 +1559,10 @@ tryRules env rules fn args call_cont
do { checkedTick (RuleFired (ru_name rule)) do { checkedTick (RuleFired (ru_name rule))
; dflags <- getDynFlags ; dflags <- getDynFlags
; trace_dump dflags rule rule_rhs ; dump dflags rule rule_rhs
; return (Just (ruleArity rule, rule_rhs)) }}} ; return (Just (ruleArity rule, rule_rhs)) }}}
where where
trace_dump dflags rule rule_rhs dump dflags rule rule_rhs
| dopt Opt_D_dump_rule_rewrites dflags | dopt Opt_D_dump_rule_rewrites dflags
= log_rule dflags Opt_D_dump_rule_rewrites "Rule fired" $ vcat = log_rule dflags Opt_D_dump_rule_rewrites "Rule fired" $ vcat
[ text "Rule:" <+> ftext (ru_name rule) [ text "Rule:" <+> ftext (ru_name rule)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment