Commit 40ef62f6 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove some dead code

parent e8c93ad1
...@@ -74,19 +74,11 @@ class Monad m => ExceptionMonad m where ...@@ -74,19 +74,11 @@ class Monad m => ExceptionMonad m where
_ <- sequel _ <- sequel
return r return r
#if __GLASGOW_HASKELL__ < 613
instance ExceptionMonad IO where
gcatch = catch
gmask f = block $ f unblock
gblock = block
gunblock = unblock
#else
instance ExceptionMonad IO where instance ExceptionMonad IO where
gcatch = catch gcatch = catch
gmask f = mask (\x -> f x) gmask f = mask (\x -> f x)
gblock = block gblock = block
gunblock = unblock gunblock = unblock
#endif
gtry :: (ExceptionMonad m, Exception e) => m a -> m (Either e a) gtry :: (ExceptionMonad m, Exception e) => m a -> m (Either e a)
gtry act = gcatch (act >>= \a -> return (Right a)) gtry act = gcatch (act >>= \a -> return (Right a))
......
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