Intricacy.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 {-# LANGUAGE CPP                      #-}
  12 #ifdef APPLE
  13 {-# LANGUAGE ForeignFunctionInterface #-}
  14 #endif
  15 module Main where
  16
  17 #ifdef MAIN_SDL
  18 import qualified SDLUI             (UIM)
  19 import           SDLUIMInstance    ()
  20 #endif
  21
  22 #ifdef MAIN_CURSES
  23 import qualified CursesUI          (UIM)
  24 import           CursesUIMInstance ()
  25 #endif
  26
  27 import           Init
  28 import           MainState
  29
  30 #ifdef APPLE
  31 foreign export ccall hs_MAIN :: IO ()
  32
  33 hs_MAIN :: IO ()
  34 hs_MAIN = main
  35 #endif
  36
  37 main = main'
  38 #ifdef MAIN_SDL
  39     (Just (doUI::SDLUI.UIM MainState -> IO (Maybe MainState)))
  40 #else
  41     (Nothing :: (Maybe (CursesUI.UIM MainState -> IO (Maybe MainState))))
  42 #endif
  43 #ifdef MAIN_CURSES
  44     (Just (doUI::CursesUI.UIM MainState -> IO (Maybe MainState)))
  45 #else
  46     (Nothing :: (Maybe (SDLUI.UIM MainState -> IO (Maybe MainState))))
  47 #endif