X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplify.lhs;h=8249c89425193d83ad8ec772e8ea4301990a2d35;hb=61899158575bc64e692d6ab350c43c5d8ec1d8e2;hp=b82dd316911063a6b78cc9758792c06986e6c606;hpb=7a50e6d8f9464090ade6d624448fac770172cf95;p=ghc-hetmet.git

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index b82dd31..8249c89 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -1391,9 +1391,10 @@ tryRules env rules fn args call_cont
     trace_dump dflags rule rule_rhs stuff
       | not (dopt Opt_D_dump_rule_firings dflags)
       , not (dopt Opt_D_dump_rule_rewrites dflags) = stuff
-      | not (dopt Opt_D_dump_rule_rewrites dflags)
 
+      | not (dopt Opt_D_dump_rule_rewrites dflags)
       = pprTrace "Rule fired:" (ftext (ru_name rule)) stuff
+
       | otherwise
       = pprTrace "Rule fired"
            (vcat [text "Rule:" <+> ftext (ru_name rule),