ghc/lib/std/PrelMain.lhs

   1 % ------------------------------------------------------------------------------
   2 % $Id: PrelMain.lhs,v 1.7 2000/06/30 13:39:36 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 Prelude
  13 import {-# SOURCE #-} qualified Main    -- for type of "Main.main"
  14
  15 import PrelException
  16 import PrelHandle ( topHandler )
  17
  18 \end{code}
  19
  20 \begin{code}
  21 mainIO :: IO ()         -- It must be of type (IO t) because that's what
  22                         -- the RTS expects.  GHC doesn't check this, so
  23                         -- make sure this type signature stays!
  24 mainIO = catchException Main.main (topHandler True)
  25 \end{code}