summaryrefslogtreecommitdiff
path: root/testsuite/tests/deSugar/should_compile/ds029.hs
blob: 000052365e63eeacc504eb05f15236657051a1ea (plain)
1
2
3
4
5
6
7
8
9
-- !!! ds029: pattern binding with guards (dubious but valid)
--

module ShouldCompile where

f x = y
    where (y,z) | y < z     = (0,1)
    	    	| y > z     = (1,2)
		| True	    = (2,3)