Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / deSugar / should_compile / ds018.hs
1 -- !!! ds018 -- explicit lists and tuples (with disabled LARGE tuples!)
2 --
3 module ShouldCompile where
4
5 -- exprs
6
7 f x y z = [x,y,z,x,y,z]
8 f2 x y = []
9
10 g1 x y = ()
11
12 {- Although GHC *should* provide arbitrary tuples, it currently doesn't
13 and probably won't in the near future, so this test is only a reminder.
14
15 g x y z = (x,y,z,x,y,z,
16 x,y,z,x,y,z,
17 x,y,z,x,y,z,
18 x,y,z,x,y,z,
19 x,y,z,x,y,z,
20 x,y,z,x,y,z,
21 x,y,z,x,y,z,
22 x,y,z,x,y,z,
23 x,y,z,x,y,z,
24 x,y,z,x,y,z,
25 x,y,z,x,y,z,
26 x,y,z,x,y,z,
27 x,y,z,x,y,z,
28 x,y,z,x,y,z,
29 x,y,z,x,y,z,
30 x,y,z,x,y,z,
31 x,y,z,x,y,z,
32 x,y,z,x,y,z,
33 x,y,z,x,y,z,
34 x,y,z,x,y,z,
35 x,y,z,x,y,z,
36 x,y,z,x,y,z,
37 x,y,z,x,y,z,
38 x,y,z,x,y,z,
39 x,y,z,x,y,z) -- hey, we love big tuples
40 -}
41
42 -- pats
43
44 fa [a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z] = x
45
46 fb [] = []
47
48 {- See above
49 ga (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,
50 aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,
51 an,ao,ap,aq,ar,as,at,au,av,aw,ax,ay,az) = x
52 -}
53
54 gb () x = x
55 gb2 () = ()
56
57 -- need to think of some better ones...