[project @ 2001-11-19 14:23:52 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplCore / Simplify.lhs

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index b69e2b2..774fa57 100644 (file)
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -897,7 +897,8 @@ completeCall env var occ_info cont
                   pprTrace "Rule fired" (vcat [
                        text "Rule:" <+> ptext rule_name,
                        text "Before:" <+> ppr var <+> sep (map pprParendExpr args),
-                       text "After: " <+> pprCoreExpr rule_rhs])
+                       text "After: " <+> pprCoreExpr rule_rhs,
+                       text "Cont:  " <+> ppr call_cont])
                 else
                        id)             $
                simplExprF env rule_rhs call_cont ;