diff options
Diffstat (limited to 'ghc/compiler/tests/stranal/default.lhs')
| -rw-r--r-- | ghc/compiler/tests/stranal/default.lhs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ghc/compiler/tests/stranal/default.lhs b/ghc/compiler/tests/stranal/default.lhs new file mode 100644 index 0000000000..010e8d557c --- /dev/null +++ b/ghc/compiler/tests/stranal/default.lhs @@ -0,0 +1,15 @@ +> data Boolean = FF | TT +> data Pair a b = MkPair a b +> data LList alpha = Nill | Conss alpha (LList alpha) +> data Nat = Zero | Succ Nat +> data Tree x = Leaf x | Node (Tree x) (Tree x) +> data A a = MkA a (A a) +> +> append :: LList a -> LList a -> LList a +> append xs ys = case xs of +> Conss z zs -> Conss z (append zs ys) +> v -> ys + + + + |