path: root/testsuite/tests/deSugar/should_compile/ds017.hs

-- !!! ds017 -- let expressions
--
module ShouldCompile where

f x y z
  = let
	a = x : []
	b = x : a
	c = y (let d = (z, z) in d)
	result = (c, b)
    in
	result