Trace statements only

ghc · Jun 10, 2013 · fc927b3 · fc927b3
1 parent 1cbfddb
commit fc927b3
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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])