SDL-0.6.1: Examples/MacOSX/wrapper.c

//for explanations see http://www.haskell.org/ghc/docs/latest/html/users_guide/ffi-ghc.html#using-own-main

#include <SDL.h>
#include <HsFFI.h>

#ifdef __GLASGOW_HASKELL__
#include "SDLWrapper_stub.h"
#endif

#ifdef __GLASGOW_HASKELL__
extern void __stginit_SDLWrapper ( void );
#endif

int main(int argc, char *argv[])
{
  hs_init(&argc, &argv);
#ifdef __GLASGOW_HASKELL__
  hs_add_root(__stginit_SDLWrapper);
#endif

  haskell_main();

  hs_exit();
  return 0;
}