blob: 5af4085c037c2fac2a71c480b1bac9310fb45dc4 (
plain)
1
2
3
4
5
6
7
8
9
|
{-# LANGUAGE ForeignFunctionInterface #-}
main :: IO ()
main = putStrLn "hello world"
foreign export ccall "hello" hello :: IO ()
hello :: IO ()
hello = putStrLn "hello world again"
|