From df62fe193785e1fc9786a6c7321670f99fa9a37d Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 29 Mar 2008 14:45:44 +0000 Subject: [PATCH] Remove an #ifdef DEBUG --- compiler/specialise/Rules.lhs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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 -- 1.7.10.4