path: root/testsuite/tests/layout/layout006.hs

module M where

-- GHC's RdrHsSyn.lhs had a piece of code like this

f :: IO ()
f
 | True = do
 let x = ()
     y = ()
 return ()
 | True = return ()