[commit: ghc] master: Add another trace to Simplify (commented out usually) (01fa3bc)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/01fa3bcdddca70b472d1adb15a4af2b8d719e1bf

>---------------------------------------------------------------

commit 01fa3bcdddca70b472d1adb15a4af2b8d719e1bf
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Nov 14 22:23:01 2011 +0000

    Add another trace to Simplify (commented out usually)

>---------------------------------------------------------------

 compiler/simplCore/Simplify.lhs |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 0d59169..4438a6b 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -1759,7 +1759,11 @@ rebuildCase env scrut case_bndr [(_, bndrs, rhs)] cont
  , if isUnLiftedType (idType case_bndr)
    then ok_for_spec         -- Satisfy the let-binding invariant
    else elim_lifted
-  = do  { tick (CaseElim case_bndr)
+  = do  { -- pprTrace "case elim" (vcat [ppr case_bndr, ppr (exprIsHNF scrut),
+          --                            ppr strict_case_bndr, ppr (scrut_is_var scrut),
+          --                            ppr ok_for_spec,
+          --                            ppr scrut]) $
+          tick (CaseElim case_bndr)
         ; env' <- simplNonRecX env case_bndr scrut
           -- If case_bndr is deads, simplNonRecX will discard
         ; simplExprF env' rhs cont }