Reorganisation of the source tree

[ghc-hetmet.git] / compiler / ilxGen / tests / yes2.hs

diff --git a/compiler/ilxGen/tests/yes2.hs b/compiler/ilxGen/tests/yes2.hs
new file mode 100644 (file)
index 0000000..7fa20c5
--- /dev/null
+++ b/compiler/ilxGen/tests/yes2.hs
@@ -0,0 +1,18 @@
+
+import PrelIOBase
+foreign import "ilxHello" unsafe ilxHello :: IO ()
+
+
+
+seqIO :: IO () -> IO () -> IO ()
+seqIO (IO m) (IO k) = IO ( \ s ->
+  case m s of 
+    (# new_s, a #) -> k new_s
+  )
+
+
+yes () = seqIO ilxHello (yes ())
+
+main :: IO ()
+main = yes ()
+