compiler/ilxGen/tests/test2d.hs

   1 foreign import ccall "libHS_cbits.so" "get_prog_argc" unsafe primArgc :: Int
   2
   3 foreign import "ilxHello" unsafe ilxHello :: IO ()
   4 foreign import "ilxBad" unsafe ilxBad :: IO ()
   5
   6
   7 main = if (primArgc == 0) then ilxHello else ilxBad