blob: 11a7c546bdfd6a892488ed5a1c5453b2bc5cc84c (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE ForeignFunctionInterface, CPP #-}
import Foreign.C
foreign import ccall unsafe "test" test :: CInt -> IO ()
main :: IO ()
-- Use conditional language to test passing a file with a filename
-- starting with a hyphen to the preprocessor.
#if defined(__GLASGOW_HASKELL__)
main = test 3
#endif
|
