Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/40ef62f62456f831eabac72b810477f92bb33a79 >--------------------------------------------------------------- commit 40ef62f62456f831eabac72b810477f92bb33a79 Author: Ian Lynagh <[email protected]> Date: Tue Dec 13 22:27:04 2011 +0000 Remove some dead code >--------------------------------------------------------------- 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 fa067b0..28196eb 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)) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
