Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / layout / layout008.hs
1
2 {-# LANGUAGE RecursiveDo, DoRec #-}
3 {-# OPTIONS_GHC -fno-warn-deprecated-flags #-}
4
5 module M where
6
7 -- do, mdo and rec should all open layouts
8
9 f :: IO ()
10 f = do print 'a'
11 print 'b'
12
13 g :: IO ()
14 g = mdo print 'a'
15 print 'b'
16
17 h :: IO ()
18 h = do print 'a'
19 rec print 'b'
20 print 'c'
21 print 'd'
22