[commit: ghc] master: Comment out a pprTrace (9b26aa0)

[git at git.haskell.org]

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

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

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

commit 9b26aa09036e6cd5ceb92b01350ba9d33fadb933
Author: Ryan Scott <ryan.gl.scott at gmail.com>
Date:   Thu Jul 5 08:54:03 2018 -0400

    Comment out a pprTrace
    
    This was introduced in commit
    45f44e2c9d5db2f25c52abb402f197c20579400f, but it results in lots of
    "check_class ~" messages when validating. I've decided to just
    comment it out.


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

9b26aa09036e6cd5ceb92b01350ba9d33fadb933
 compiler/typecheck/TcValidity.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcValidity.hs b/compiler/typecheck/TcValidity.hs
index 86cb922..60fb261 100644
--- a/compiler/typecheck/TcValidity.hs
+++ b/compiler/typecheck/TcValidity.hs
@@ -854,7 +854,7 @@ check_class_pred :: TidyEnv -> DynFlags -> UserTypeCtxt
 check_class_pred env dflags ctxt pred cls tys
   |  cls `hasKey` heqTyConKey   -- (~) and (~~) are classified as classes,
   || cls `hasKey` eqTyConKey    -- but here we want to treat them as equalities
-  = pprTrace "check_class" (ppr cls) $
+  = -- pprTrace "check_class" (ppr cls) $
     check_eq_pred env dflags pred
 
   | isIPClass cls