aihc-parser-1.0.0.2: test/Test/Fixtures/golden/pattern/mdo-view-pattern.yaml

extensions: [RecursiveDo, ViewPatterns]
input: |
  (mdo { pure x } -> y)
ast: |-
  PParen (PView (EDo [DoExpr (EApp (EVar "pure") (EVar "x"))] (DoMdo)) (PVar "y"))
status: pass