ghc/compiler/tests/wdp-ppr.hs

   1 {-
   2 From: Kubiak Ryszard <fozzie>
   3 To: partain
   4 Subject: You may test the new pretty-printer on the following text:
   5 Date: Wed, 2 Oct 91 18:06:05 BST
   6 -}
   7
   8 data LList alpha = Nill | Conss alpha (LList alpha)
   9
  10 append :: LList a -> LList a -> LList a
  11 append xs ys  = case xs of
  12                   Nill -> ys
  13                   (Conss z zs)  -> Conss z (append zs ys)