diff options
Diffstat (limited to 'ghc/GHCi/UI/Monad.hs')
| -rw-r--r-- | ghc/GHCi/UI/Monad.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/ghc/GHCi/UI/Monad.hs b/ghc/GHCi/UI/Monad.hs index 16bcd20ee4..696303b949 100644 --- a/ghc/GHCi/UI/Monad.hs +++ b/ghc/GHCi/UI/Monad.hs @@ -15,6 +15,7 @@ module GHCi.UI.Monad ( GHCiState(..), GhciMonad(..), GHCiOption(..), isOptionSet, setOption, unsetOption, Command(..), CommandResult(..), cmdSuccess, + LocalConfigBehaviour(..), PromptFunction, BreakLocation(..), TickArray, @@ -79,6 +80,7 @@ data GHCiState = GHCiState prompt_cont :: PromptFunction, editor :: String, stop :: String, + localConfig :: LocalConfigBehaviour, options :: [GHCiOption], line_number :: !Int, -- ^ input line break_ctr :: !Int, @@ -197,6 +199,15 @@ data GHCiOption -- modules after load deriving Eq +-- | Treatment of ./.ghci files. For now we either load or +-- ignore. But later we could implement a "safe mode" where +-- only safe operations are performed. +-- +data LocalConfigBehaviour + = SourceLocalConfig + | IgnoreLocalConfig + deriving (Eq) + data BreakLocation = BreakLocation { breakModule :: !GHC.Module |