@@ -12,11 +12,11 @@ data DbgLevel = NONE | DEBUG | TRACE deriving Eq
1212data OutputType = Raw | Object | Executable deriving (Eq, Show)
1313
1414environment :: String -> IO (Maybe String)
15−environment x = catch (do e <- getEnv x
16− return (Just e))
17−#if MIN_VERSION_base(4,6,0)
15+environment x = Control.Exception.catch (do e <- getEnv x
16+ return (Just e))
17+#if MIN_VERSION_base(4,0,0)
1818 (\y-> do return (y::SomeException); return Nothing)
1919#endif
20−#if !MIN_VERSION_base(4,6,0)
20+#if !MIN_VERSION_base(4,0,0)
2121 (\_-> return Nothing)
2222#endif