Commit 5ceeab2d authored by Simon Marlow's avatar Simon Marlow
Browse files

change topHandlerFastExit to topHandler, so the terminal state gets restored (#2228)

parent b47555c3
...@@ -454,12 +454,8 @@ runGHCi paths maybe_exprs = do ...@@ -454,12 +454,8 @@ runGHCi paths maybe_exprs = do
-- current progname in the exception text: -- current progname in the exception text:
-- <progname>: <exception> -- <progname>: <exception>
io $ withProgName (progname st) io $ withProgName (progname st)
-- The "fast exit" part just calls exit() -- this used to be topHandlerFastExit, see #2228
-- directly instead of doing an orderly $ topHandler e
-- runtime shutdown, otherwise the main
-- GHCi thread will complain about being
-- interrupted.
$ topHandlerFastExit e
runCommands' handle (return Nothing) runCommands' handle (return Nothing)
-- and finally, exit -- and finally, exit
......
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