testsuite/tests/ghc-api/exactprint/LayoutIn3.hs


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 x = 12 in (let y = 3
                           z = 2 in x * y * z * w) where   y = 2
                                                           --there is a comment.
                                                           w = x
                                                             where
                                                               x = let y = 5 in y + 3