summaryrefslogtreecommitdiff
path: root/testsuite/tests/deSugar/should_compile/ds002.hs
blob: 521e3238fff077a2f237603bc5d041114a832399 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
-- !!! ds002 -- overlapping equations and guards
--
-- this tests "overlapping" variables and guards

module ShouldCompile where

f x = x
f y = y
f z = z

g x y z | True = f z
        | True = f z
        | True = f z
g x y z | True = f z
        | True = f z
        | True = f z