[project @ 2001-04-17 22:11:00 by lewie]

[ghc-hetmet.git] / ghc / compiler / specialise / SpecConstr.lhs

diff --git a/ghc/compiler/specialise/SpecConstr.lhs b/ghc/compiler/specialise/SpecConstr.lhs
index 528140c..dfea0cb 100644 (file)
--- 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}