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

   1 {-# LANGUAGE ForeignFunctionInterface #-}
   2
   3 module Main where
   4
   5 import Foreign.C (CInt (..))
   6
   7 foreign import ccall "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 the exported Lib.hello
  14     if (secret == 11)
  15         then putStrLn ("The secret is " ++ show secret)
  16         else error ("Expected value 11, got " ++ show secret)