[project @ 1997-09-05 09:16:19 by simonm]
[ghc-hetmet.git] / ghc / tests / stranal / should_compile / test.lhs
1 > module Test where
2 > data LList t = Nill | Conss t (LList t)
3 > data BBool = TTrue | FFalse
4
5 > f Nill = TTrue
6 > f (Conss a as) = FFalse