[commit: ghc] master: Remove old trace statement (e3e5a96)

git at git.haskell.org git at git.haskell.org
Wed Oct 21 18:05:52 UTC 2015


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e3e5a96f933a3b35d6ce927c01aab24f8201a94d/ghc

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

commit e3e5a96f933a3b35d6ce927c01aab24f8201a94d
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Wed Oct 21 14:08:12 2015 -0400

    Remove old trace statement


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

e3e5a96f933a3b35d6ce927c01aab24f8201a94d
 compiler/typecheck/TcErrors.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcErrors.hs b/compiler/typecheck/TcErrors.hs
index c0a3350..8c88d22 100644
--- a/compiler/typecheck/TcErrors.hs
+++ b/compiler/typecheck/TcErrors.hs
@@ -963,9 +963,7 @@ mkTyVarEqErr dflags ctxt extra ct oriented tv1 ty2
                             -- be oriented the other way round;
                             -- see TcCanonical.canEqTyVarTyVar
   || isSigTyVar tv1 && not (isTyVarTy ty2)
-  || pprTrace "RAE1" (ppr ct $$ ppr tv1 $$ ppr ty2 $$
-                      ppr (isTyVarUnderDatatype tv1 ty2))
-     (ctEqRel ct == ReprEq && not (isTyVarUnderDatatype tv1 ty2))
+  || ctEqRel ct == ReprEq && not (isTyVarUnderDatatype tv1 ty2)
      -- the cases below don't really apply to ReprEq (except occurs check)
   = mkErrorMsgFromCt ctxt ct (vcat [ misMatchOrCND ctxt ct oriented ty1 ty2
                                    , extraTyVarInfo ctxt tv1 ty2



More information about the ghc-commits mailing list