projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-28 23:33:57 by krasimir]
[ghc-base.git]
/
GHC
/
TopHandler.lhs
diff --git
a/GHC/TopHandler.lhs
b/GHC/TopHandler.lhs
index
6082a03
..
829752e
100644
(file)
--- a/
GHC/TopHandler.lhs
+++ b/
GHC/TopHandler.lhs
@@
-58,6
+58,7
@@
topHandler err = catchException (real_handler err) topHandler
--
real_handler :: Exception -> IO a
real_handler ex =
--
real_handler :: Exception -> IO a
real_handler ex =
+ cleanUp >>
case ex of
AsyncException StackOverflow -> do
reportStackOverflow
case ex of
AsyncException StackOverflow -> do
reportStackOverflow