Reorganisation of the source tree

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

diff --git a/compiler/ilxGen/tests/test8.hs b/compiler/ilxGen/tests/test8.hs
new file mode 100644 (file)
index 0000000..94a7e1f
--- /dev/null
+++ b/compiler/ilxGen/tests/test8.hs
@@ -0,0 +1,8 @@
+data Inf a = A (Inf a)
+
+hd (A x) = x
+
+choose (A (A x)) =  "hello world\n"
+mk f = f (mk f)
+main = putStr (choose (hd (mk A)))
+