diff options
-rw-r--r-- | compiler/utils/Util.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index 6eb1390c06..35642f9166 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -577,13 +577,13 @@ only _ = panic "Util: only" -- Debugging/specialising versions of \tr{elem} and \tr{notElem} -isIn, isn'tIn :: Eq a => String -> a -> [a] -> Bool - # if !defined(DEBUG) +isIn, isn'tIn :: Eq a => String -> a -> [a] -> Bool isIn _msg x ys = x `elem` ys isn'tIn _msg x ys = x `notElem` ys # else /* DEBUG */ +isIn, isn'tIn :: (HasDebugCallStack, Eq a) => String -> a -> [a] -> Bool isIn msg x ys = elem100 0 x ys where |