language-c-inline-0.3.0.1: tests/objc/minimal/Main.hs

{-# LANGUAGE TemplateHaskell, QuasiQuotes #-}

import Language.C.Quote.ObjC
import Language.C.Inline.ObjC


objc_import ["<Foundation/Foundation.h>"]

nslog :: String -> IO ()
nslog msg = $(objc ['msg] ''() [cexp| NSLog(@"Here is a message from Haskell: %@", msg) |])

objc_emit


main = objc_initialise >> nslog "I like Objective-C!"