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

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

--In this Example: rename 'ioFun' to  'io'

main = io "hello" where io s= do  let  k = reverse s
--There is a comment
                                  s <- getLine
                                  let  q = (k ++ s)
                                  putStr q
                                  putStr "foo"