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}