[commit: ghc] master: Trace statements only (fc927b3)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/fc927b3dbda01f564398c0a47ad525a9ee118ee7

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

commit fc927b3dbda01f564398c0a47ad525a9ee118ee7
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jun 10 18:28:54 2013 +0100

    Trace statements only

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

 compiler/typecheck/TcPat.lhs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/typecheck/TcPat.lhs b/compiler/typecheck/TcPat.lhs
index fd9acee..cb49d4d 100644
--- a/compiler/typecheck/TcPat.lhs
+++ b/compiler/typecheck/TcPat.lhs
@@ -685,6 +685,7 @@ tcConPat penv (L con_span con_name) 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')
 	; if null ex_tvs && null eq_spec && null theta
 	  then do { -- The common case; no class bindings etc 
                     -- (see Note [Arrows and patterns])