000052365e63eeacc504eb05f15236657051a1ea
[ghc.git] / testsuite / tests / deSugar / should_compile / ds029.hs
1 -- !!! ds029: pattern binding with guards (dubious but valid)
2 --
3
4 module ShouldCompile where
5
6 f x = y
7 where (y,z) | y < z = (0,1)
8 | y > z = (1,2)
9 | True = (2,3)