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