[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / tests / wdp-ppr.hs

diff --git a/ghc/compiler/tests/wdp-ppr.hs b/ghc/compiler/tests/wdp-ppr.hs
new file mode 100644 (file)
index 0000000..563e752
--- /dev/null
+++ b/ghc/compiler/tests/wdp-ppr.hs
@@ -0,0 +1,13 @@
+{-
+From: Kubiak Ryszard <fozzie>
+To: partain
+Subject: You may test the new pretty-printer on the following text:
+Date: Wed, 2 Oct 91 18:06:05 BST
+-}
+
+data LList alpha = Nill | Conss alpha (LList alpha) 
+
+append :: LList a -> LList a -> LList a
+append xs ys  = case xs of
+                  Nill -> ys
+                  (Conss z zs)  -> Conss z (append zs ys)