Commit fc927b3d authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Trace statements only

parent 1cbfddb0
...@@ -685,6 +685,7 @@ tcConPat penv (L con_span con_name) pat_ty arg_pats thing_inside ...@@ -685,6 +685,7 @@ tcConPat penv (L con_span con_name) pat_ty arg_pats thing_inside
arg_tys' = substTys tenv arg_tys 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 ; if null ex_tvs && null eq_spec && null theta
then do { -- The common case; no class bindings etc then do { -- The common case; no class bindings etc
-- (see Note [Arrows and patterns]) -- (see Note [Arrows and patterns])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment