summaryrefslogtreecommitdiff
path: root/testsuite/tests/module/mod103.hs
blob: ccd6ddfd0d6a98b3ca92ea20e59461335e8bf414 (plain)
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