From: sof <unknown>
Date: Fri, 9 Nov 2001 18:40:52 +0000 (+0000)
Subject: [project @ 2001-11-09 18:40:52 by sof]
X-Git-Tag: Approximately_9120_patches~585
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6a0b3f6798ec5b80f96d0230c553e466877440b3;p=ghc-hetmet.git

[project @ 2001-11-09 18:40:52 by sof]
lookupInstEnv: "#ifdef DEBUG"-protect trace code
that got included in prev. commit.

(I'm guessing it either should be removed or moved
into the ASSERT, but I'll let the original committer
decide which).
---

diff --git a/ghc/compiler/types/InstEnv.lhs b/ghc/compiler/types/InstEnv.lhs
index 6a1c2bb..e44d6f6 100644
--- a/ghc/compiler/types/InstEnv.lhs
+++ b/ghc/compiler/types/InstEnv.lhs
@@ -286,9 +286,11 @@ 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)