Comment out a pprTrace
authorRyan Scott <ryan.gl.scott@gmail.com>
Thu, 5 Jul 2018 12:54:03 +0000 (08:54 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Thu, 5 Jul 2018 13:51:15 +0000 (09:51 -0400)
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.

compiler/typecheck/TcValidity.hs

index 86cb922..60fb261 100644 (file)
@@ -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