[commit: ghc] master: Improve tracing slightly (cbe59d8)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/cbe59d89f2f1cc41147fabb4a4c58126152bef7f/ghc

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

commit cbe59d89f2f1cc41147fabb4a4c58126152bef7f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Apr 8 09:41:20 2014 +0100

    Improve tracing slightly


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

cbe59d89f2f1cc41147fabb4a4c58126152bef7f
 compiler/typecheck/TcPat.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcPat.lhs b/compiler/typecheck/TcPat.lhs
index 3c5ea84..0b2a200 100644
--- a/compiler/typecheck/TcPat.lhs
+++ b/compiler/typecheck/TcPat.lhs
@@ -736,7 +736,8 @@ tcDataConPat penv (L con_span con_name) data_con pat_ty arg_pats thing_inside
 
 	      arg_tys' = substTys tenv arg_tys
 
-        ; traceTc "tcConPat" (ppr con_name $$ ppr ex_tvs' $$ ppr pat_ty' $$ ppr arg_tys')
+        ; traceTc "tcConPat" (vcat [ ppr con_name, ppr univ_tvs, ppr ex_tvs, ppr eq_spec
+                                   , ppr ex_tvs', ppr pat_ty', ppr arg_tys' ])
 	; if null ex_tvs && null eq_spec && null theta
 	  then do { -- The common case; no class bindings etc 
                     -- (see Note [Arrows and patterns])