Reorganisation of the source tree

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

diff --git a/compiler/ilxGen/tests/test7.hs b/compiler/ilxGen/tests/test7.hs
new file mode 100644 (file)
index 0000000..c146038
--- /dev/null
+++ b/compiler/ilxGen/tests/test7.hs
@@ -0,0 +1,8 @@
+data List a = Cons a (List a)
+
+hdL (Cons x y) = x
+tlL (Cons x y) = y
+
+mk f x = f x (mk f x)
+main = putStr (hdL (tlL (mk Cons "hello world!\n")))
+