Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6f4a073ed837e6db9466e98ea0fd8ddd4368f637 >--------------------------------------------------------------- commit 6f4a073ed837e6db9466e98ea0fd8ddd4368f637 Author: Ian Lynagh <[email protected]> Date: Thu Feb 16 22:24:28 2012 +0000 Remove unused ghciHandleGhcException >--------------------------------------------------------------- ghc/GhciMonad.hs | 5 ----- 1 files changed, 0 insertions(+), 5 deletions(-) diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs index f1767c3..71d1e76 100644 --- a/ghc/GhciMonad.hs +++ b/ghc/GhciMonad.hs @@ -22,7 +22,6 @@ module GhciMonad ( printForUser, printForUserPartWay, prettyLocations, initInterpBuffering, turnOffBuffering, flushInterpBuffers, - ghciHandleGhcException, ) where #include "HsVersions.h" @@ -31,7 +30,6 @@ import qualified GHC import GhcMonad hiding (liftIO) import Outputable hiding (printForUser, printForUserPartWay) import qualified Outputable -import Panic hiding (showException) import Util import DynFlags import HscTypes @@ -171,9 +169,6 @@ instance Monad GHCi where instance Functor GHCi where fmap f m = m >>= return . f -ghciHandleGhcException :: (GhcException -> GHCi a) -> GHCi a -> GHCi a -ghciHandleGhcException = handleGhcException - getGHCiState :: GHCi GHCiState getGHCiState = GHCi $ \r -> liftIO $ readIORef r setGHCiState :: GHCiState -> GHCi () _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
