[commit: ghc] tc-untouchables: Comment out a particularly verbose trace (bd2aef6)
Simon Peyton Jones <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : tc-untouchables http://hackage.haskell.org/trac/ghc/changeset/bd2aef691e0d83fe8070a741ce0ab2c798e399ad >--------------------------------------------------------------- commit bd2aef691e0d83fe8070a741ce0ab2c798e399ad Author: Simon Peyton Jones <[email protected]> Date: Mon Oct 1 10:32:16 2012 +0100 Comment out a particularly verbose trace >--------------------------------------------------------------- compiler/typecheck/FamInst.lhs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/FamInst.lhs b/compiler/typecheck/FamInst.lhs index b6370b5..2758890 100644 --- a/compiler/typecheck/FamInst.lhs +++ b/compiler/typecheck/FamInst.lhs @@ -177,7 +177,9 @@ tcLookupFamInst tycon tys | otherwise = do { instEnv <- tcGetFamInstEnvs ; let mb_match = lookupFamInstEnv instEnv tycon tys - ; traceTc "lookupFamInst" ((ppr tycon <+> ppr tys) $$ pprTvBndrs (varSetElems (tyVarsOfTypes tys)) $$ ppr mb_match $$ ppr instEnv) +-- ; traceTc "lookupFamInst" ((ppr tycon <+> ppr tys) $$ +-- pprTvBndrs (varSetElems (tyVarsOfTypes tys)) $$ +-- ppr mb_match $$ ppr instEnv) ; case mb_match of [] -> return Nothing ((fam_inst, rep_tys):_)