def dq.val

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

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

54def dq.val(r: Result<&2, &2, String, Json.Json>) -> L.JR():
55  match r:
56    case Done{Json.JStr{s}}:
57      Done{Json.JStr{s}}
58    case Done{x}:
59      Fail{"bad double-quoted string"}
60    case Fail{e}:
61      Fail{"bad double-quoted string: " ++ e}