summaryrefslogtreecommitdiff
path: root/tests/examples/transform/LayoutIn3a.hs
blob: 58b36b07f8a802a06464eddb79964b81bc48dad5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
module LayoutIn3a where

--Layout rule applies after 'where','let','do' and 'of'

--In this Example: rename 'x' after 'let'  to 'anotherX'.

foo x = let x = 12 in (
                                    x            ) where   y = 2
                                                           --there is a comment.
                                                           w = x
                                                             where
                                                               x = let y = 5 in y + 3