projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7fa20c5b7d06bd9636e3e017c71d91825845d784
[ghc-hetmet.git]
/
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