testsuite/tests/deSugar/should_compile/ds001.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

-- !!! ds001 -- simple function and pattern bindings
--
-- this tests ultra-simple function and pattern bindings (no patterns)

module ShouldCompile where

-- simple function bindings

f x = x

g x y z = f z

j w x y z = g w x z

h x y = f y
  where
    f a b = a

-- simple pattern bindings

a = b

b = f

c = c