[commit: ghc] ghc-7.8: Improve tracing slightly (eb10678)

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/eb1067870ced67c3e7250c0eeb94de138ef60b4b/ghc

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

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

    Improve tracing slightly
    
    (cherry picked from commit cbe59d89f2f1cc41147fabb4a4c58126152bef7f)


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

eb1067870ced67c3e7250c0eeb94de138ef60b4b
 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 ca2aa06..951c168 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])