diff options
Diffstat (limited to 'compiler/GHC/Core/Utils.hs')
| -rw-r--r-- | compiler/GHC/Core/Utils.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/compiler/GHC/Core/Utils.hs b/compiler/GHC/Core/Utils.hs index b6273ed31d..2382cac7fb 100644 --- a/compiler/GHC/Core/Utils.hs +++ b/compiler/GHC/Core/Utils.hs @@ -6,8 +6,6 @@ Utility functions on @Core@ syntax -} -{-# LANGUAGE CPP #-} - -- | Commonly useful utilities for manipulating the Core language module GHC.Core.Utils ( -- * Constructing expressions @@ -1613,11 +1611,9 @@ expr_ok primop_ok other_expr Var f -> app_ok primop_ok f args -- 'LitRubbish' is the only literal that can occur in the head of an -- application and will not be matched by the above case (Var /= Lit). - Lit LitRubbish{} -> True -#if defined(DEBUG) - Lit _ -> pprPanic "Non-rubbish lit in app head" (ppr other_expr) -#endif - _ -> False + Lit LitRubbish{} -> True + Lit _ | debugIsOn -> pprPanic "Non-rubbish lit in app head" (ppr other_expr) + _ -> False ----------------------------- app_ok :: (PrimOp -> Bool) -> Id -> [CoreExpr] -> Bool |