ghc/compiler/tests/deSugar/ds017.hs

   1 --!!! ds017 -- let expressions
   2 --
   3 module Tests where
   4
   5 f x y z
   6   = let
   7         a = x : []
   8         b = x : a
   9         c = y (let d = (z, z) in d)
  10         result = (c, b)
  11     in
  12         result