ghc/tests/reader/should_compile/read003.hs

   1 --!!! Testing layout rule
   2 module Layout where
   3
   4 l1 :: IO ()
   5 l1 = do
   6   return a
   7   where
   8    a = ()
   9
  10 l2 :: IO ()
  11 l2 = do
  12   return a
  13  where
  14   a = ()
  15
  16 l3 :: IO ()
  17 l3 = do
  18   return a
  19    where
  20    a = ()