blob: eb07b8cfeae13ccd6c7f7d303c859b099d56e53c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- Copyright (C) 2015, Luke Iannini
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE ForeignFunctionInterface #-}
module Main where
import Printf ( pr )
foreign import ccall "talkToCxx" talkToCxx :: IO ()
main :: IO ()
main = do
putStrLn ( $(pr "Hello From Template Haskell!") )
talkToCxx
|