Commit 4409628f authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Don't read ~/.ghci on breakpoints.

parent 03803f88
......@@ -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++"> ",
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment