ghc/compiler/ilxGen/tests/yes2.hs

   1
   2 import PrelIOBase
   3 foreign import "ilxHello" unsafe ilxHello :: IO ()
   4
   5
   6
   7 seqIO :: IO () -> IO () -> IO ()
   8 seqIO (IO m) (IO k) = IO ( \ s ->
   9   case m s of
  10     (# new_s, a #) -> k new_s
  11   )
  12
  13
  14 yes () = seqIO ilxHello (yes ())
  15
  16 main :: IO ()
  17 main = yes ()
  18