X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FTopHandler.lhs;h=b1ac1b83c2b0e6b0899ddce5caeb8f9cab9f58c6;hb=66681b296084bc3683cab50986402e5da27f5912;hp=6082a033e1ec559652bef3acedf5955c713bbf54;hpb=6350abd168b45763b2db174ebd3320bfaf705eec;p=ghc-base.git

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index 6082a03..b1ac1b8 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.TopHandler (
    runMainIO, runIO, runNonIO, reportStackOverflow, reportError
   ) where
@@ -58,6 +59,7 @@ topHandler err = catchException (real_handler err) topHandler
 --
 real_handler :: Exception -> IO a
 real_handler ex =
+  cleanUp >>
   case ex of
 	AsyncException StackOverflow -> do
 	   reportStackOverflow