diff options
Diffstat (limited to 'compiler/ilxGen/tests/test9.hs')
| -rw-r--r-- | compiler/ilxGen/tests/test9.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/compiler/ilxGen/tests/test9.hs b/compiler/ilxGen/tests/test9.hs new file mode 100644 index 0000000000..311b65c4e1 --- /dev/null +++ b/compiler/ilxGen/tests/test9.hs @@ -0,0 +1,10 @@ +data Tree a = Node (Tree a) (Tree a) + +left (Node x y) = x +right (Node x y) = y + +choose (Node (Node _ _) (Node _ _)) = "hello world!\n" + +mk f = f (mk f) (mk f) +main = putStr (choose (mk Node)) + |