X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fspecialise%2FRules.lhs;h=65975f81cb537372135332c1b567c558775ff8a7;hb=993ce43d3f3fb6bdb04cbc6d82babdd23355f7d7;hp=090f0f0b807d9bda8203e9591179ba18f05443d0;hpb=6c51a993efa623be3f92ae997c3cb321e4b0badb;p=ghc-hetmet.git

diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs
index 090f0f0..65975f8 100644
--- a/compiler/specialise/Rules.lhs
+++ b/compiler/specialise/Rules.lhs
@@ -268,8 +268,7 @@ findBest target (rule,ans)   [] = (rule,ans)
 findBest target (rule1,ans1) ((rule2,ans2):prs)
   | rule1 `isMoreSpecific` rule2 = findBest target (rule1,ans1) prs
   | rule2 `isMoreSpecific` rule1 = findBest target (rule2,ans2) prs
-#ifdef DEBUG
-  | otherwise = let pp_rule rule 
+  | debugIsOn = let pp_rule rule
 			| opt_PprStyle_Debug = ppr rule
 			| otherwise          = doubleQuotes (ftext (ru_name rule))
 		in pprTrace "Rules.findBest: rule overlap (Rule 1 wins)"
@@ -279,9 +278,7 @@ findBest target (rule1,ans1) ((rule2,ans2):prs)
 				ptext SLIT("Rule 1:") <+> pp_rule rule1, 
 				ptext SLIT("Rule 2:") <+> pp_rule rule2]) $
 		findBest target (rule1,ans1) prs
-#else
   | otherwise = findBest target (rule1,ans1) prs
-#endif
   where
     (fn,args) = target