cabal-testsuite/PackageTests/FFI/ForeignOptsC/Main.hs

   1 {-# LANGUAGE ForeignFunctionInterface #-}
   2
   3 module Main where
   4
   5 import Foreign.C (CInt (..))
   6
   7 foreign import ccall "clib.h meaning_of_life_c"
   8   meaning_of_life_c :: IO CInt
   9
  10 main :: IO ()
  11 main = do
  12     secret <- meaning_of_life_c
  13     -- The value 11 comes from __TESTOPT_C__ - see the cabal file.
  14     if (secret == 11)
  15         then putStrLn ("The secret is " ++ show secret)
  16         else error ("Expected value 11, got " ++ show secret)