From: simonmar <unknown>
Date: Mon, 11 Feb 2002 12:28:57 +0000 (+0000)
Subject: [project @ 2002-02-11 12:28:57 by simonmar]
X-Git-Tag: nhc98-1-18-release~1143
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=38399af8a570ce85267a75de221472a5edab6953;p=ghc-base.git

[project @ 2002-02-11 12:28:57 by simonmar]
Export runMain (following ghc/lib/std/PrelTopHandler.lhs)
---

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