luka-2012.7.7: src/Init.hs

{-# LANGUAGE ForeignFunctionInterface #-}
 
module Init where

import Foreign hiding (void)
import Foreign.C.Types
import Foreign.C.String

import Prelude ()
import Air.Env
import Control.Monad ((>=>))

import Language.ObjectiveC.Luka.RunTime
import Language.ObjectiveC.Luka
import Foreign.LibFFI



main = do
  with_pool - do
    ns_puts "Hello World!" []
  -- c_NSApplicationMain 0 nullPtr