From d9fe1d1dba2f78c10df8fd622952b4c1d057b78b Mon Sep 17 00:00:00 2001
From: lewie <unknown>
Date: Tue, 17 Apr 2001 22:11:00 +0000
Subject: [PATCH] [project @ 2001-04-17 22:11:00 by lewie] Stomp some debug
 output.

---
 ghc/compiler/specialise/SpecConstr.lhs |    1 -
 1 file changed, 1 deletion(-)

diff --git a/ghc/compiler/specialise/SpecConstr.lhs b/ghc/compiler/specialise/SpecConstr.lhs
index 528140c..dfea0cb 100644
--- a/ghc/compiler/specialise/SpecConstr.lhs
+++ b/ghc/compiler/specialise/SpecConstr.lhs
@@ -500,7 +500,6 @@ spec_one env fn rhs (pats, n)
 	spec_id   = mkUserLocal spec_occ spec_uniq (exprType spec_rhs) fn_loc
 	rule      = Rule rule_name pat_fvs pats (mkVarApps (Var spec_id) bndrs)
     in
-    pprTrace "SpecConstr" (pprCoreRule (ppr fn) rule)	$
     returnUs (rule, (spec_id, spec_rhs))
 \end{code}
 
-- 
1.7.10.4