cabal-testsuite/PackageTests/CCompilerOverride/Main.hs

   1 {-# LANGUAGE ForeignFunctionInterface #-}
   2
   3 module Main (main) where
   4
   5 foreign import ccall "foo" foo :: Int -> Int
   6
   7 main :: IO ()
   8 main = do
   9   let x = foo 0
  10       y = x
  11   let x = y
  12   print x
  13   pure ()