From: simonpj <unknown>
Date: Mon, 29 Jan 2001 15:09:34 +0000 (+0000)
Subject: [project @ 2001-01-29 15:09:34 by simonpj]
X-Git-Tag: Approximately_9120_patches~2785
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=288d27cf41d93fa129ac53b7fcc8c9cb1ac6f16b;p=ghc-hetmet.git

[project @ 2001-01-29 15:09:34 by simonpj]
Remove trace
---

diff --git a/ghc/compiler/coreSyn/CoreTidy.lhs b/ghc/compiler/coreSyn/CoreTidy.lhs
index c985f95..5692636 100644
--- a/ghc/compiler/coreSyn/CoreTidy.lhs
+++ b/ghc/compiler/coreSyn/CoreTidy.lhs
@@ -171,8 +171,7 @@ findExternalSet :: [CoreBind] -> [IdCoreRule]
 		-> IdEnv Bool	-- True <=> show unfolding
 	-- Step 1 from the notes above
 findExternalSet binds orphan_rules
-  = pprTrace "fes" (vcat (map pprIdCoreRule orphan_rules) $$ ppr (varSetElems orphan_rule_ids)) $
-    foldr find init_needed binds
+  = foldr find init_needed binds
   where
     orphan_rule_ids :: IdSet
     orphan_rule_ids = unionVarSets [ ruleSomeFreeVars isIdAndLocal rule