ghc/compiler/tests/deSugar/ds001.hs

   1 --!!! ds001 -- simple function and pattern bindings
   2 --
   3 -- this tests ultra-simple function and pattern bindings (no patterns)
   4
   5 module Test where
   6
   7 -- simple function bindings
   8
   9 f x = x
  10
  11 g x y z = f z
  12
  13 j w x y z = g w x z
  14
  15 h x y = f y
  16   where
  17     f a b = a
  18
  19 -- simple pattern bindings
  20
  21 a = b
  22
  23 b = f
  24
  25 c = c