From ba7f5c4dc937dd268a2398c9664abdfd8856e41d Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 12 Nov 2001 12:18:50 +0000
Subject: [PATCH] [project @ 2001-11-12 12:18:50 by simonpj] Remove pprTrace

---
 ghc/compiler/types/InstEnv.lhs |    5 -----
 1 file changed, 5 deletions(-)

diff --git a/ghc/compiler/types/InstEnv.lhs b/ghc/compiler/types/InstEnv.lhs
index e44d6f6..d7fac2e 100644
--- a/ghc/compiler/types/InstEnv.lhs
+++ b/ghc/compiler/types/InstEnv.lhs
@@ -286,11 +286,6 @@ lookupInstEnv env key_cls key_tys
 	      Nothing        -> find rest
 	      Just _         -> NoMatch (any_match rest)
 	  Just (subst, leftovers) -> ASSERT( null leftovers )
-#ifdef DEBUG
-				     pprTrace "lookupInst" (vcat [text "look:" <+> ppr key_cls <+> ppr key_tys, 
-								  text "found:" <+> ppr dfun_id,
-								  text "env:" <+> ppr (classInstEnv env key_cls)]) $
-#endif
 				     FoundInst subst dfun_id
 
     any_match rest = or [ maybeToBool (matchTys tvs tpl key_tys)
-- 
1.7.10.4