[commit: ghc] master: Remove unused ghciHandleGhcException (6f4a073)

Ian Lynagh igloo at earth.li
Fri Feb 17 01:04:18 CET 2012


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6f4a073ed837e6db9466e98ea0fd8ddd4368f637

>---------------------------------------------------------------

commit 6f4a073ed837e6db9466e98ea0fd8ddd4368f637
Author: Ian Lynagh <igloo at earth.li>
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 ()





More information about the Cvs-ghc mailing list