From: Lemmih Date: Mon, 17 Jul 2006 23:25:53 +0000 (+0000) Subject: Use a recursive error handler in case the exception causes more exceptions. X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7593fccbd8957551fff5cb052883230d555a890c Use a recursive error handler in case the exception causes more exceptions. --- diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index c9de96f..55384bc 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -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