diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-12-13 22:27:04 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-12-15 23:57:17 +0000 |
| commit | 40ef62f62456f831eabac72b810477f92bb33a79 (patch) | |
| tree | 2c79d3c5f1a9a713a01a134dd2e19f190c82d775 /compiler | |
| parent | e8c93ad1207fb3df1e009d86ad3ae837a0049d2e (diff) | |
| download | haskell-40ef62f62456f831eabac72b810477f92bb33a79.tar.gz | |
Remove some dead code
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/utils/Exception.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/compiler/utils/Exception.hs b/compiler/utils/Exception.hs index fa067b0859..28196eba2b 100644 --- a/compiler/utils/Exception.hs +++ b/compiler/utils/Exception.hs @@ -74,19 +74,11 @@ class Monad m => ExceptionMonad m where _ <- sequel 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 gcatch = catch gmask f = mask (\x -> f x) gblock = block gunblock = unblock -#endif gtry :: (ExceptionMonad m, Exception e) => m a -> m (Either e a) gtry act = gcatch (act >>= \a -> return (Right a)) |