summaryrefslogtreecommitdiff
path: root/utils/check-exact/cases/LayoutIn3.expected.hs
blob: 900d6daf632af492d8c61d8473333c0ea23062da (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
module LayoutIn3 where

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

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

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