Commit 355d57a5 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Remove trace that sometimes causes a loop

parent 262cab0f
......@@ -1027,8 +1027,6 @@ tcConDecl new_or_data rep_tycon tmpl_tvs res_tmpl -- Data types
ResTyH98 -> quantifyTyVars (mkVarSet tmpl_tvs) (tyVarsOfTypes (ctxt++arg_tys))
ResTyGADT res_ty -> quantifyTyVars emptyVarSet (tyVarsOfTypes (res_ty:ctxt++arg_tys))
; traceTc "tcConDecl" (ppr name $$ ppr arg_tys $$ ppr tkvs)
-- Zonk to Types
; (ze, qtkvs) <- zonkTyBndrsX emptyZonkEnv tkvs
; arg_tys <- zonkTcTypeToTypes ze arg_tys
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