ghc/compiler/tests/deSugar/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)