diff options
| -rw-r--r-- | libraries/base/GHC/GHCi.hs | 42 | ||||
| -rw-r--r-- | libraries/base/base.cabal | 1 |
2 files changed, 0 insertions, 43 deletions
diff --git a/libraries/base/GHC/GHCi.hs b/libraries/base/GHC/GHCi.hs deleted file mode 100644 index d08aab37d7..0000000000 --- a/libraries/base/GHC/GHCi.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE NoImplicitPrelude #-} -{-# OPTIONS_HADDOCK hide #-} - ------------------------------------------------------------------------------ --- | --- Module : GHC.GHCi --- Copyright : (c) The University of Glasgow 2012 --- License : see libraries/base/LICENSE --- --- Maintainer : cvs-ghc@haskell.org --- Stability : internal --- Portability : non-portable (GHC Extensions) --- --- The GHCi Monad lifting interface. --- ------------------------------------------------------------------------------ - --- #hide -module GHC.GHCi ( - GHCiSandboxIO(..), NoIO() - ) where - -import GHC.Base (IO(), Monad, (>>=), return, id, (.)) - --- | A monad that can execute GHCi statements by lifting them out of --- m into the IO monad. (e.g state monads) -class (Monad m) => GHCiSandboxIO m where - ghciStepIO :: m a -> IO a - -instance GHCiSandboxIO IO where - ghciStepIO = id - --- | A monad that doesn't allow any IO. -newtype NoIO a = NoIO { noio :: IO a } - -instance Monad NoIO where - return a = NoIO (return a) - (>>=) k f = NoIO (noio k >>= noio . f) - -instance GHCiSandboxIO NoIO where - ghciStepIO = noio - diff --git a/libraries/base/base.cabal b/libraries/base/base.cabal index 6e97cc0fd6..2cbfa11c03 100644 --- a/libraries/base/base.cabal +++ b/libraries/base/base.cabal @@ -58,7 +58,6 @@ Library { GHC.Float.RealFracMethods, GHC.Foreign, GHC.ForeignPtr, - GHC.GHCi, GHC.Handle, GHC.IO, GHC.IO.Buffer, |