testsuite/tests/parser/should_compile/read003.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

-- !!! Testing layout rule
module ShouldCompile where

l1 :: IO ()
l1 = do
  return a
  where
   a = ()

l2 :: IO ()
l2 = do
  return a
 where
  a = ()

l3 :: IO ()
l3 = do
  return a
   where
   a = ()