From: simonpj@microsoft.com <unknown>
Date: Wed, 15 Sep 2010 22:59:35 +0000 (+0000)
Subject: Remove pprTrace
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2e5f521ad4b18128d55fdc1076237e9ee04e790b

Remove pprTrace
---

diff --git a/compiler/typecheck/TcInteract.lhs b/compiler/typecheck/TcInteract.lhs
index 6f48a4f..9f89f64 100644
--- a/compiler/typecheck/TcInteract.lhs
+++ b/compiler/typecheck/TcInteract.lhs
@@ -1618,10 +1618,9 @@ NB: The desugarer needs be more clever to deal with equalities
 newSCWorkFromFlavored :: EvVar -> CtFlavor -> Class -> [Xi]
                       -> TcS WorkList
 newSCWorkFromFlavored ev flavor cls xis
-  | Given loc <- flavor	 	-- The NoScSkol says "don't add superclasses"
-  , NoScSkol <- ctLocOrigin loc
-  = pprTrace "Oh dear! Superclasses of self" (pprEvVarWithType ev) $
-    return emptyWorkList
+  | Given loc <- flavor	 	 -- The NoScSkol says "don't add superclasses"
+  , NoScSkol <- ctLocOrigin loc  -- Very important!
+  = return emptyWorkList
     
   | otherwise
   = do { let (tyvars, sc_theta, _, _) = classBigSig cls