Fold template-haskell.git into ghc.git (re #8545)
[ghc.git] / testsuite / tests / module / mod103.hs
1 -- !!! Layout rule extension (restricting empty do's).
2 module Foo where
3
4 g :: Int -> (Int -> IO a) -> IO a
5 g x cont = cont x
6
7 f :: Int -> IO Int
8 f x = do
9 g x $ \ y -> do
10 f y
11
12