4faaba53fdfb2ebd1b1672118c84388c9fcd9e85
[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      = []