diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:45:44 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:45:44 +0000 |
| commit | df62fe193785e1fc9786a6c7321670f99fa9a37d (patch) | |
| tree | 9717ebf167d1fc544137061d07b931a283bfd240 /compiler | |
| parent | 6a1fc2329366f912b6378a68b3f9876f0954de01 (diff) | |
| download | haskell-df62fe193785e1fc9786a6c7321670f99fa9a37d.tar.gz | |
Remove an #ifdef DEBUG
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/specialise/Rules.lhs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs index 090f0f0b80..65975f81cb 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 |