MainBoth.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 (UIM)
  19 import SDLUIMInstance ()
  20 import qualified CursesUI (UIM)
  21 import CursesUIMInstance ()
  22 import MainState
  23
  24 #ifdef APPLE
  25 foreign export ccall hs_MAIN :: IO ()
  26
  27 hs_MAIN :: IO ()
  28 hs_MAIN = main
  29 #endif
  30
  31 main = main'
  32     (Just (doUI::SDLUI.UIM MainState -> IO (Maybe MainState)))
  33     (Just (doUI::CursesUI.UIM MainState -> IO (Maybe MainState)))