Remove trace that sometimes causes a loop
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 12 Jun 2013 08:43:40 +0000 (09:43 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 12 Jun 2013 08:43:40 +0000 (09:43 +0100)
compiler/typecheck/TcTyClsDecls.lhs

index 665de14..41cbeae 100644 (file)
@@ -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