--
-----------------------------------------------------------------------------
+-- #hide
module GHC.TopHandler (
runMainIO, runIO, runNonIO, reportStackOverflow, reportError
) where
--
real_handler :: Exception -> IO a
real_handler ex =
+ cleanUp >>
case ex of
AsyncException StackOverflow -> do
reportStackOverflow