[project @ 2000-11-10 15:12:50 by simonpj]
[ghc-hetmet.git] / ghc / tests / stranal / should_compile / test.hs
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