[commit: ghc] master: Remove trace that sometimes causes a loop (355d57a)

[Simon Peyton Jones]

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

On branch  : master

https://github.com/ghc/ghc/commit/355d57a5c00bcca6c31ab4564c2d986780efc584

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

commit 355d57a5c00bcca6c31ab4564c2d986780efc584
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Jun 12 09:43:40 2013 +0100

    Remove trace that sometimes causes a loop

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

 compiler/typecheck/TcTyClsDecls.lhs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs
index 665de14..41cbeae 100644
--- a/compiler/typecheck/TcTyClsDecls.lhs
+++ b/compiler/typecheck/TcTyClsDecls.lhs
@@ -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