Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
7593fccb
Commit
7593fccb
authored
Jul 17, 2006
by
David Himmelstrup
Browse files
Use a recursive error handler in case the exception causes more exceptions.
parent
872a4a0f
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/ghci/InteractiveUI.hs
View file @
7593fccb
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment