[project @ 2001-08-04 06:19:54 by ken]
[ghc-hetmet.git] / ghc / lib / std / PrelMain.lhs
1 % ------------------------------------------------------------------------------
2 % $Id: PrelMain.lhs,v 1.9 2001/05/21 14:07:31 simonmar Exp $
3 %
4 % (c) The University of Glasgow, 1994-2000
5 %
6
7 \section[PrelMain]{Module @PrelMain@}
8
9 \begin{code}
10 module PrelMain( mainIO ) where
11
12 import {-# SOURCE #-} qualified Main    -- for type of "Main.main"
13
14 import IO
15 import PrelException
16 import PrelTopHandler
17
18 mainIO :: IO ()         -- It must be of type (IO t) because that's what
19                         -- the RTS expects.  GHC doesn't check this, so
20                         -- make sure this type signature stays!
21 mainIO = catchException Main.main topHandler
22 \end{code}