aihc-parser-1.0.0.2: test/Test/Fixtures/golden/expr/block-args-do-bind.yaml

extensions: [BlockArguments]
input: |
  mapM f do
    x <- get
    return x
ast: |-
  EApp (EApp (EVar "mapM") (EVar "f")) (EDo [DoBind (PVar "x") (EVar "get"), DoExpr (EApp (EVar "return") (EVar "x"))])
status: pass