[project @ 2001-06-28 14:15:04 by simonmar]
[packages/pretty.git] / GHC / Main.lhs
1 % ------------------------------------------------------------------------------
2 % $Id: Main.lhs,v 1.1 2001/06/28 14:15:03 simonmar Exp $
3 %
4 % (c) The University of Glasgow, 1994-2000
5 %
6
7 \section[GHC.Main]{Module @GHC.Main@}
8
9 \begin{code}
10 module GHC.Main( mainIO ) where
11
12 import {-# SOURCE #-} qualified Main    -- for type of "Main.main"
13
14 import Prelude
15
16 import System.IO
17 import GHC.Exception
18 import GHC.TopHandler
19
20 mainIO :: IO ()         -- It must be of type (IO t) because that's what
21                         -- the RTS expects.  GHC doesn't check this, so
22                         -- make sure this type signature stays!
23 mainIO = catchException Main.main topHandler
24 \end{code}