Commit f1d525d1 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove an #ifdef DEBUG

parent 11c7f334
...@@ -1108,12 +1108,9 @@ pprStats code statss ...@@ -1108,12 +1108,9 @@ pprStats code statss
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- Utils -- Utils
#ifdef DEBUG my_fromJust :: String -> SDoc -> Maybe a -> a
my_fromJust s p Nothing = pprPanic ("fromJust: " ++ s) p
my_fromJust _ _ (Just x) = x my_fromJust _ _ (Just x) = x
#else my_fromJust s p Nothing = pprPanic ("fromJust: " ++ s) p
my_fromJust _ _ = fromJust
#endif
lookItUp :: Uniquable b => String -> UniqFM a -> b -> a lookItUp :: Uniquable b => String -> UniqFM a -> b -> a
lookItUp str fm x = my_fromJust str (ppr (getUnique x)) (lookupUFM fm x) lookItUp str fm x = my_fromJust str (ppr (getUnique x)) (lookupUFM fm x)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment