aihc-parser-1.0.0.2: test/Test/Fixtures/golden/module/case-in-record-field.yaml

extensions: []
input: |
  module CaseInRecordField where
  x = R { f = case y of A -> 1, g = 3 }
ast: |-
  Module {ModuleHead {"CaseInRecordField"}, [DeclValue (PatternBind (PVar "x") (ERecordCon "R" {"f" = ECase (EVar "y") [CaseAlt (PCon "A" []) (EInt 1 TInteger)], "g" = EInt 3 TInteger}))]}
status: pass