Add more function guards tests
commitc5ed521e3581340f9d747a53a156be4089f6dac2
authorDmitry Ivanov <ethercrow@gmail.com>
dateThu 27 Jun 2019, 21:03 (7 years ago)
parentdb8c179
data/examples/declaration/value/function/guards-out.hs+13
@@ -12,3 +12,16 @@ bar x
1212 foo x +
1313 foo 20
1414 | otherwise = foo 100
15+
16+baz :: Int -> Int
17+baz x | x < 0 = x
18+baz x | otherwise = x
19+
20+multi_baz :: Int -> Int
21+multi_baz x | x < 42 = x
22+multi_baz x | x < 0 = x
23+multi_baz x | otherwise = x
24+
25+quux :: Int -> Int
26+quux x | x < 0 = x
27+quux x = x
data/examples/declaration/value/function/guards.hs+13
@@ -10,3 +10,16 @@ bar x
1010 | x == 6 = foo x
1111 + foo 20
1212 | otherwise = foo 100
13+
14+baz :: Int -> Int
15+baz x | x < 0 = x
16+baz x | otherwise = x
17+
18+multi_baz :: Int -> Int
19+multi_baz x | x < 42 = x
20+multi_baz x | x < 0 = x
21+multi_baz x | otherwise = x
22+
23+quux :: Int -> Int
24+quux x | x < 0 = x
25+quux x = x