[commit: base] master: Revert "Add GHCi monad" (0550a28)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0550a28cfc517ac36e6d1ab5594133787b56425d

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

commit 0550a28cfc517ac36e6d1ab5594133787b56425d
Author: David Terei <davidterei at gmail.com>
Date:   Fri Apr 13 04:23:09 2012 -0700

    Revert "Add GHCi monad"
    
    This reverts commit 7e04ab6158957c90e3c68911b6909b6ef69621da.

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

 GHC/GHCi.hs |   42 ------------------------------------------
 base.cabal  |    1 -
 2 files changed, 0 insertions(+), 43 deletions(-)

diff --git a/GHC/GHCi.hs b/GHC/GHCi.hs
deleted file mode 100644
index d08aab3..0000000
--- a/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 at 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/base.cabal b/base.cabal
index 6e97cc0..2cbfa11 100644
--- a/base.cabal
+++ b/base.cabal
@@ -58,7 +58,6 @@ Library {
             GHC.Float.RealFracMethods,
             GHC.Foreign,
             GHC.ForeignPtr,
-            GHC.GHCi,
             GHC.Handle,
             GHC.IO,
             GHC.IO.Buffer,