X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fghci%2FGhciMonad.hs;h=5086022d05cd43303d7271b2a0b78a97305515d9;hb=86bec4298d582ef1d8f0a201d6a81145e1be9498;hp=f7f2014ea29c5d25d6483cbc8b44845a5fcaedca;hpb=065ce67b1b6ba6b8f3646b73c7cadd50a001a9af;p=ghc-hetmet.git

diff --git a/compiler/ghci/GhciMonad.hs b/compiler/ghci/GhciMonad.hs
index f7f2014..5086022 100644
--- a/compiler/ghci/GhciMonad.hs
+++ b/compiler/ghci/GhciMonad.hs
@@ -47,7 +47,6 @@ data GHCiState = GHCiState
 	session        :: GHC.Session,
 	options        :: [GHCiOption],
         prelude        :: GHC.Module,
-        resume         :: [EvalInProgress],
         breaks         :: !ActiveBreakPoints,
         tickarrays     :: ModuleEnv TickArray
                 -- tickarrays caches the TickArray for loaded modules,
@@ -69,14 +68,6 @@ data ActiveBreakPoints
    , breakLocations :: ![(Int, BreakLocation)]  -- break location uniquely numbered 
    }
 
--- The context of an evaluation in progress that stopped at a breakpoint
-data EvalInProgress
-   = EvalInProgress
-   { evalStmt         :: String,
-     evalSpan         :: SrcSpan,
-     evalThreadId     :: ThreadId,
-     evalResumeHandle :: GHC.ResumeHandle }
-
 instance Outputable ActiveBreakPoints where
    ppr activeBrks = prettyLocations $ breakLocations activeBrks 
 
@@ -189,24 +180,6 @@ unsetOption opt
 io :: IO a -> GHCi a
 io m = GHCi { unGHCi = \s -> m >>= return }
 
-popResume :: GHCi (Maybe EvalInProgress)
-popResume = do
-   st <- getGHCiState 
-   case (resume st) of
-      []     -> return Nothing
-      (x:xs) -> do setGHCiState $ st { resume = xs } ; return (Just x)
-         
-pushResume :: EvalInProgress -> GHCi ()
-pushResume eval = do
-   st <- getGHCiState
-   let oldResume = resume st
-   setGHCiState $ st { resume = eval : oldResume }
-
-discardResumeContext :: GHCi ()
-discardResumeContext = do
-   st <- getGHCiState
-   setGHCiState st { resume = [] }
-
 printForUser :: SDoc -> GHCi ()
 printForUser doc = do
   session <- getSession