compiler/ilxGen/tests/test2c.hs

   1 import PrelIOBase
   2
   3
   4 bindIO2 :: IO () -> IO () -> IO ()
   5 bindIO2 m (IO k) = IO ( \ s -> k s )
   6
   7 foreign import "ilxHello" unsafe ilxHello :: IO ()
   8
   9 data N = S N | Z
  10
  11 f Z = bindIO2
  12 f (S x) = f x
  13
  14 main = f(S Z) ilxHello ilxHello