20092448d73d87e13e019b7772b71d53276b9a35
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / 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