aihc-parser-1.0.0.2: test/Test/Fixtures/golden/module/do-if-then-else-case-layout.yaml

extensions: [DoAndIfThenElse]
input: |
  {-# LANGUAGE DoAndIfThenElse #-}
  module DoAndIfThenElseCaseLayout where
  toCaseLayout = do
    if True
      then do
      case undefined of
        Left err -> error err
        Right obj -> return obj
      else do
      return ()
ast: |-
  Module {ModuleHead {"DoAndIfThenElseCaseLayout"}, [DoAndIfThenElse], [DeclValue (PatternBind (PVar "toCaseLayout") (EDo [DoExpr (EIf (EVar "True") (EDo [DoExpr (ECase (EVar "undefined") [CaseAlt (PCon "Left" [PVar "err"]) (EApp (EVar "error") (EVar "err")), CaseAlt (PCon "Right" [PVar "obj"]) (EApp (EVar "return") (EVar "obj"))])]) (EDo [DoExpr (EApp (EVar "return") (ETuple []))]))]))]}
status: pass