[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / validation-misc / 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 -----