testsuite/tests/ghc-regress/module/mod103.hs


1
2
3
4
5
6
7
8
9
10
11
12

-- !!! Layout rule extension (restricting empty do's).
module Foo where

g :: Int -> (Int -> IO a) -> IO a
g x cont = cont x

f :: Int -> IO Int
f x = do 
  g x $ \ y -> do
  f y