[project @ 1997-07-26 23:12:13 by sof]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds021.hs
1 --!!! ds021 -- hairier uses of guards
2
3 module Test where
4
5 f x y z | x == y     = []
6         | x /= z     = []
7         | True       = []
8         | False      = []