[project @ 2001-03-23 17:41:32 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      = []