[project @ 2000-11-03 16:23:37 by simonmar]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds021.hs
1 -- !!! ds021 -- hairier uses of guards
2
3 module ShouldCompile where
4
5 f x y z | x == y     = []
6         | x /= z     = []
7         | True       = []
8         | False      = []