ghc/compiler/tests/validation-misc/testmonobinds.hs

   1 -- monobinds
   2 -----
   3
   4 a = 1:a
   5
   6 -----
   7
   8 a = 2
   9
  10 b = 1:a:c
  11
  12 c = 0:b
  13
  14 -----
  15
  16 a = 1
  17
  18 b = a+a
  19
  20 -----
  21
  22 f = \ y -> y
  23
  24 g x = x
  25
  26 -----
  27
  28 f True = 1
  29
  30 f False = 0
  31
  32 -----
  33
  34 f (x:y) = x
  35
  36 f z = z
  37
  38 -----
  39
  40 f (True,x) = x
  41
  42 f (False,y) = y+1
  43
  44 -----
  45