MainSDL.hs

   1 -- This file is part of Intricacy
   2 -- Copyright (C) 2013 Martin Bays <mbays@sdf.org>
   3 --
   4 -- This program is free software: you can redistribute it and/or modify
   5 -- it under the terms of version 3 of the GNU General Public License as
   6 -- published by the Free Software Foundation, or any later version.
   7 --
   8 -- You should have received a copy of the GNU General Public License
   9 -- along with this program.  If not, see http://www.gnu.org/licenses/.
  10
  11 {-# OPTIONS_GHC -cpp #-}
  12 #ifdef APPLE
  13 {-# LANGUAGE ForeignFunctionInterface #-}
  14 #endif
  15 module Main where
  16
  17 import Init
  18 import qualified SDLUI
  19 import SDLUIMInstance ()
  20 import MainState
  21
  22 #ifdef APPLE
  23 foreign export ccall hs_MAIN :: IO ()
  24
  25 hs_MAIN :: IO ()
  26 hs_MAIN = main
  27 #endif
  28
  29 main = main'
  30     (Just (doUI::SDLUI.UIM MainState -> IO (Maybe MainState)))
  31     (Nothing :: (Maybe (SDLUI.UIM MainState -> IO (Maybe MainState))))