[commit: ghc] master: Rename trace_dump to dump (52307c1)
Ian Lynagh
igloo at earth.li
Sun Aug 5 20:55:04 CEST 2012
Repository : ssh://darcs.haskell.org//srv/darcs/ghc
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/52307c17e79e46d0e6bd48ac6319cee4e04d9363
>---------------------------------------------------------------
commit 52307c17e79e46d0e6bd48ac6319cee4e04d9363
Author: Ian Lynagh <ian at well-typed.com>
Date: Sun Aug 5 18:54:48 2012 +0100
Rename trace_dump to dump
It's no longer a trace-like function.
>---------------------------------------------------------------
compiler/simplCore/Simplify.lhs | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 34d7147..e0bc720 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -1559,10 +1559,10 @@ tryRules env rules fn args call_cont
do { checkedTick (RuleFired (ru_name rule))
; dflags <- getDynFlags
- ; trace_dump dflags rule rule_rhs
+ ; dump dflags rule rule_rhs
; return (Just (ruleArity rule, rule_rhs)) }}}
where
- trace_dump dflags rule rule_rhs
+ dump dflags rule rule_rhs
| dopt Opt_D_dump_rule_rewrites dflags
= log_rule dflags Opt_D_dump_rule_rewrites "Rule fired" $ vcat
[ text "Rule:" <+> ftext (ru_name rule)
More information about the Cvs-ghc
mailing list