[commit: ghc] master: Improve debug tracing (4ea2675)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4ea2675c90ce4b8386618150ddda105dbd08a55a

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

commit 4ea2675c90ce4b8386618150ddda105dbd08a55a
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Sep 1 07:55:39 2011 +0100

    Improve debug tracing

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

 compiler/typecheck/TcBinds.lhs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs
index 6787bbd..2c713e0 100644
--- a/compiler/typecheck/TcBinds.lhs
+++ b/compiler/typecheck/TcBinds.lhs
@@ -432,7 +432,8 @@ tcPolyInfer mono closed tc_sig_fn prag_fn rec_tc bind_list
                                  , abs_ev_vars = givens, abs_ev_binds = ev_binds
                                  , abs_exports = exports, abs_binds = binds' }
 
-       ; traceTc "Binding:" (ppr (poly_ids `zip` map idType poly_ids))
+       ; traceTc "Binding:" (ppr final_closed $$
+                             ppr (poly_ids `zip` map idType poly_ids))
        ; return (unitBag abs_bind, poly_ids, final_closed)   
          -- poly_ids are guaranteed zonked by mkExport
   }