[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