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