[project @ 1999-02-02 13:21:59 by sof]
[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