Commit 5e2409c5 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Follow changes in base

parent e778d3d7
......@@ -6,12 +6,10 @@ module Exception
)
where
import Prelude hiding (catch)
import Control.Exception
catchIO :: IO a -> (IOException -> IO a) -> IO a
catchIO = catch
catchIO = Control.Exception.catch
handleIO :: (IOException -> IO a) -> IO a -> IO a
handleIO = flip catchIO
......@@ -75,7 +73,7 @@ class Monad m => ExceptionMonad m where
return r
instance ExceptionMonad IO where
gcatch = catch
gcatch = Control.Exception.catch
gmask f = mask (\x -> f x)
gblock = block
gunblock = unblock
......
......@@ -27,7 +27,6 @@ import Control.Monad
import Data.List
import Data.Maybe
import Numeric
import Prelude hiding (catch)
import System.Directory
import System.Environment
import System.FilePath
......
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