[project @ 2001-08-23 10:36:50 by sewardj]
[ghc-hetmet.git] / ghc / tests / etc / testmatches.hs
1 -- matches
2 -----
3 f x = case x of
4        True -> True
5        False -> x
6
7 -----
8
9 f ((x:a),y) = x
10 f (a,b) = 2
11
12 -----