[project @ 2000-11-03 16:23:37 by simonmar]
[ghc-hetmet.git] / ghc / tests / reader / should_compile / read007.hs
1 module ShouldCompile where
2
3 import MyList
4
5 myLength :: MyList a -> Int
6 myLength Empty = 0
7 myLength (x ::: xs) = 1 + myLength xs
8