From 5ceeab2d3005bb1de8f2e8eeafbf761990bd1468 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 29 Apr 2008 22:24:42 +0000 Subject: [PATCH] change topHandlerFastExit to topHandler, so the terminal state gets restored (#2228) --- compiler/ghci/InteractiveUI.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index db7844d..26d548d 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -454,12 +454,8 @@ runGHCi paths maybe_exprs = do -- current progname in the exception text: -- : io $ withProgName (progname st) - -- The "fast exit" part just calls exit() - -- directly instead of doing an orderly - -- runtime shutdown, otherwise the main - -- GHCi thread will complain about being - -- interrupted. - $ topHandlerFastExit e + -- this used to be topHandlerFastExit, see #2228 + $ topHandler e runCommands' handle (return Nothing) -- and finally, exit -- 1.7.10.4