aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/DoAndIfThenElse/do-and-if-then-else-then-do-multi-stmt.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE DoAndIfThenElse #-}

-- Test case: 'then do' and 'else do' where inner do has multiple statements.
-- The 'else' at column 5 should close the inner do at column 5.
module DoAndIfThenElseThenDoMultiStmt where

multiStmt :: IO ()
multiStmt = do
  if True
    then do
    putStrLn "a"
    putStrLn "b"
    else do
    putStrLn "c"
    putStrLn "d"