[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg007.hs

diff --git a/ghc/tests/codeGen/should_run/cg007.hs b/ghc/tests/codeGen/should_run/cg007.hs
deleted file mode 100644 (file)
index 317b921..0000000
--- a/ghc/tests/codeGen/should_run/cg007.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-data Tree a = Leaf a | Branch (Tree a) (Tree a)
-
-main = print (height our_tree)
-    where
-      our_tree :: Tree Int
-      our_tree =
-       Branch (Branch (Leaf 1) (Branch (Branch (Leaf 1) (Leaf 1)) (Leaf 1)))
-              (Branch (Leaf 1) (Leaf 1))
-
-
-height :: Tree a -> Int
-
-height (Leaf _)                = 1
-height (Branch t1 t2)  = 1 + max (height t1) (height t2)