f7e93929edd50694cb4921e178a6f87b250b1e54
[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      = []