Ticket #7040: main.hs

File main.hs, 144 bytes (added by luite, 22 months ago)
Line 
1{-# LANGUAGE ForeignFunctionInterface #-}
2
3module Main where
4
5foreign import ccall "global.h printx"
6  c_printx :: IO ()
7
8main = do
9  c_printx
10