From: lewie <unknown>
Date: Tue, 17 Apr 2001 22:11:00 +0000 (+0000)
Subject: [project @ 2001-04-17 22:11:00 by lewie]
X-Git-Tag: Approximately_9120_patches~2139
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d9fe1d1dba2f78c10df8fd622952b4c1d057b78b;p=ghc-hetmet.git

[project @ 2001-04-17 22:11:00 by lewie]
Stomp some debug output.
---

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}