From 2e5f521ad4b18128d55fdc1076237e9ee04e790b Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 15 Sep 2010 22:59:35 +0000 Subject: [PATCH] Remove pprTrace --- compiler/typecheck/TcInteract.lhs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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 -- 1.7.10.4