ghc/compiler/tests/deSugar/ds018.hs

   1 --!!! ds018 -- explicit lists and tuples
   2 --
   3 module Tests 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 g x y z = (x,y,z,x,y,z,
  12            x,y,z,x,y,z,
  13            x,y,z,x,y,z,
  14            x,y,z,x,y,z,
  15            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) -- hey, we love big tuples
  36
  37 -- pats
  38
  39 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
  40
  41 fb [] = []
  42
  43 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,
  44     aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,
  45     an,ao,ap,aq,ar,as,at,au,av,aw,ax,ay,az) = x
  46
  47 gb () x = x
  48 gb2 ()  = ()
  49
  50 -- need to think of some better ones...