def field.cons

cswap-bend-cli@0.1.0.0 · fmt/yscal.bend:294

import Base
import cswap-bend-cli@0.1.0.0/json.bend as Json
import cswap-bend-cli@0.1.0.0/fmt/ylex.bend as L

294def field.cons(k: String, x: L.JR(), rest: L.JR()) -> L.JR():
295  match x rest:
296    case Done{a} Done{b}:
297      Done{Json.JField{k, a, b}}
298    case Fail{e} _:
299      Fail{e}
300    case _ Fail{e}:
301      Fail{e}