Commit 7593fccb authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Use a recursive error handler in case the exception causes more exceptions.

parent 872a4a0f
......@@ -523,7 +523,7 @@ runCommand c = ghciHandle handler (doCommand c)
runCommandEval c = ghciHandle handleEval (doCommand c)
where
handleEval (ExitException code) = io (exitWith code)
handleEval e = do showException e
handleEval e = do handler e
io (exitWith (ExitFailure 1))
doCommand (':' : command) = specialCommand command
......
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