diff options
Diffstat (limited to 'ghc/GHCi/UI/Monad.hs')
| -rw-r--r-- | ghc/GHCi/UI/Monad.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/ghc/GHCi/UI/Monad.hs b/ghc/GHCi/UI/Monad.hs index 306fa2132f..260d92c008 100644 --- a/ghc/GHCi/UI/Monad.hs +++ b/ghc/GHCi/UI/Monad.hs @@ -15,6 +15,7 @@ module GHCi.UI.Monad ( GHCiState(..), setGHCiState, getGHCiState, modifyGHCiState, GHCiOption(..), isOptionSet, setOption, unsetOption, Command(..), + PromptFunction, BreakLocation(..), TickArray, getDynFlags, @@ -67,8 +68,8 @@ data GHCiState = GHCiState progname :: String, args :: [String], evalWrapper :: ForeignHValue, -- ^ of type @IO a -> IO a@ - prompt :: String, - prompt2 :: String, + prompt :: PromptFunction, + prompt_cont :: PromptFunction, editor :: String, stop :: String, options :: [GHCiOption], @@ -137,6 +138,10 @@ data Command -- ^ 'CompletionFunc' for arguments } +type PromptFunction = [String] + -> Int + -> GHCi SDoc + data GHCiOption = ShowTiming -- show time/allocs after evaluation | ShowType -- show the type of expressions |