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)