From: simonpj@microsoft.com <unknown>
Date: Wed, 29 Nov 2006 22:52:43 +0000 (+0000)
Subject: Remove trace
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b20a90d8b487a14439e2567f44d27fde5430ac97;p=ghc-hetmet.git

Remove trace
---

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..])