cabal-testsuite/PackageTests/PreProcess/Hsc2HsOptions/Main.hs

   1 {-# LANGUAGE CPP #-}
   2 module Main where
   3
   4 import Foo
   5
   6 bar :: Int
   7 #ifdef TEST_OPTION
   8 bar = TEST_OPTION
   9 #else
  10 bar = 0
  11 #endif
  12
  13 main :: IO ()
  14 main = do
  15     putStrLn $ "hsc2hs value: " ++ show foo
  16     putStrLn $ "ghc value: " ++ show bar