-isTopLevel :: GHCi Bool
-isTopLevel = getGHCiState >>= return . topLevel
-
-getResume :: GHCi (Maybe (IO GHC.RunResult))
-getResume = do
- st <- getGHCiState
- case (resume st) of
- [] -> return Nothing
- (x:_) -> return $ Just x
-
-popResume :: GHCi ()
-popResume = do
- st <- getGHCiState
- case (resume st) of
- [] -> return ()
- (_:xs) -> setGHCiState $ st { resume = xs }
-
-pushResume :: IO GHC.RunResult -> GHCi ()
-pushResume resumeAction = do
- st <- getGHCiState
- let oldResume = resume st
- setGHCiState $ st { resume = resumeAction : oldResume }
-
-showForUser :: SDoc -> GHCi String
-showForUser doc = do