From 288d27cf41d93fa129ac53b7fcc8c9cb1ac6f16b Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 29 Jan 2001 15:09:34 +0000
Subject: [PATCH] [project @ 2001-01-29 15:09:34 by simonpj] Remove trace

---
 ghc/compiler/coreSyn/CoreTidy.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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 
-- 
1.7.10.4