From 38399af8a570ce85267a75de221472a5edab6953 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 11 Feb 2002 12:28:57 +0000
Subject: [PATCH] [project @ 2002-02-11 12:28:57 by simonmar] Export runMain
 (following ghc/lib/std/PrelTopHandler.lhs)

---
 GHC/TopHandler.lhs |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index d7519ef..f0c272e 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: TopHandler.lhs,v 1.4 2002/02/05 17:32:27 simonmar Exp $
+-- $Id: TopHandler.lhs,v 1.5 2002/02/11 12:28:57 simonmar Exp $
 --
 -- (c) The University of Glasgow, 2001
 --
@@ -19,7 +19,7 @@
 
 \begin{code}
 module GHC.TopHandler (
-   topHandler, reportStackOverflow, reportError 
+   runMain, reportStackOverflow, reportError 
   ) where
 
 import Prelude
@@ -31,6 +31,10 @@ import Foreign.Ptr
 import GHC.IOBase
 import GHC.Exception
 
+-- runMain is applied to Main.main by TcModule
+runMain :: IO a -> IO ()
+runMain main = catchException (main >> return ()) topHandler
+  
 topHandler :: Exception -> IO ()
 topHandler err = catchException (real_handler err) topHandler
 
-- 
1.7.10.4