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

[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/c862c6ead61af9b9f7e4f02137cd9fb59ac36c96/ghc

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

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

    More tracing


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

c862c6ead61af9b9f7e4f02137cd9fb59ac36c96
 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 2426377..4e563cb 100644
--- a/compiler/stranal/DmdAnal.lhs
+++ b/compiler/stranal/DmdAnal.lhs
@@ -635,7 +635,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