[project @ 2001-08-22 11:45:06 by sewardj]
[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