def step.comma

emerging-ezjson@1.3.0.0 · src/parse.bend:108

import Base
import emerging-ezjson@1.3.0.0/src/value.bend as V

108def step.comma(stack: List<&2, Frame>, root: Maybe<&2, V.Json>, bad: Bool) -> P:
109  match stack:
110    case Con{FArr{items, SComma{}}, rest}:
111      P{bad, root, FArr{items, SValue{}} <> rest}
112    case Con{FObj{pairs, k, SComma{}}, rest}:
113      P{bad, root, FObj{pairs, KOwn{""}, SKey{}} <> rest}
114    case other:
115      P{True{}, root, Nil{}}