[commit: ghc] wip/nested-cpr: More tracing (5b76053)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nested-cpr
Link       : http://ghc.haskell.org/trac/ghc/changeset/5b760534a8258353242790ae8a3d471abe679595/ghc

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

commit 5b760534a8258353242790ae8a3d471abe679595
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Nov 28 18:49:04 2013 +0000

    More tracing


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

5b760534a8258353242790ae8a3d471abe679595
 compiler/stranal/DmdAnal.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs
index 67e5663..0f18ea9 100644
--- a/compiler/stranal/DmdAnal.lhs
+++ b/compiler/stranal/DmdAnal.lhs
@@ -639,7 +639,8 @@ dmdAnalRhs top_lvl rec_flag env id rhs
   = (fn_str, emptyDmdEnv, set_idStrictness env id fn_str, rhs)
 
   | otherwise
-  = (sig_ty, lazy_fv, id', mkLams bndrs' body')
+  = -- pprTrace "dmdAnalRhs" (vcat [ ppr id, ppr (idDemandInfo id), ppr rhs_dmd_ty, ppr sig_ty, ppr not_strict ])
+    (sig_ty, lazy_fv, id', mkLams bndrs' body')
   where
     (bndrs, body)        = collectBinders rhs
     env_body             = foldl extendSigsWithLam env bndrs