diff options
| author | Lemmih <lemmih@gmail.com> | 2006-05-09 22:34:55 +0000 |
|---|---|---|
| committer | Lemmih <lemmih@gmail.com> | 2006-05-09 22:34:55 +0000 |
| commit | 4409628fbb7925eccf9fe0784809fa2eb8d790dc (patch) | |
| tree | 5884f39b3f779dac6d165a23b376f7c81cb634de /compiler/ghci | |
| parent | 03803f88cccbee0d2a4180015fffa02a803c20d6 (diff) | |
| download | haskell-4409628fbb7925eccf9fe0784809fa2eb8d790dc.tar.gz | |
Don't read ~/.ghci on breakpoints.
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index d92cc53ad9..c09aab5274 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -240,8 +240,9 @@ jumpFunction session@(Session ref) (I# idsPtr) hValues location b new_ic = ictxt { ic_rn_local_env = new_rn_env, ic_type_env = new_type_env } writeIORef ref (hsc_env { hsc_IC = new_ic }) + is_tty <- hIsTerminalDevice stdin withExtendedLinkEnv (zip names hValues) $ - startGHCi (runGHCi [] Nothing) + startGHCi (interactiveLoop is_tty True) GHCiState{ progname = "<interactive>", args = [], prompt = location++"> ", |