From b20a90d8b487a14439e2567f44d27fde5430ac97 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 29 Nov 2006 22:52:43 +0000 Subject: [PATCH] Remove trace --- compiler/specialise/SpecConstr.lhs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs index 3876a44..92e4131 100644 --- a/compiler/specialise/SpecConstr.lhs +++ b/compiler/specialise/SpecConstr.lhs @@ -786,11 +786,11 @@ specialise env calls (fn, rhs, arg_occs) [ exprsFreeVars pats `delVarSetList` vs | (vs,pats) <- good_pats ] uniq_pats = nubBy (same_pat in_scope) good_pats - ; pprTrace "specialise" (vcat [ppr fn <+> ppr arg_occs, - text "calls" <+> ppr all_calls, - text "good pats" <+> ppr good_pats, - text "uniq pats" <+> ppr uniq_pats]) $ - return () +-- ; pprTrace "specialise" (vcat [ppr fn <+> ppr arg_occs, +-- text "calls" <+> ppr all_calls, +-- text "good pats" <+> ppr good_pats, +-- text "uniq pats" <+> ppr uniq_pats]) $ +-- return () ; (rules, spec_prs) <- mapAndUnzipUs (spec_one fn rhs) (uniq_pats `zip` [1..]) -- 1.7.10.4