X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fspecialise%2FSpecConstr.lhs;h=92e4131c95f58ccb16f56cbf18390082f49639d2;hb=90dc9026b091be5cca5da4c6cbd3713ecc493361;hp=3876a44af1bbe4b6b2bc3d0fe2b1da398f2b50f7;hpb=9fad5a80e55f3a36b7da09031e77324f67ab08d1;p=ghc-hetmet.git

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