def parse_seq

cswap-bend-cli@0.1.0.0 · store/io.bend:59

import Base
import cswap-bend-cli@0.1.0.0/json.bend as Json
import cswap-bend-cli@0.1.0.0/act.bend as Act

59def parse_seq(+path: String, r: Result<&2, &2, String, Json.Json>) -> Act.of(Maybe<&2, Json.Json>):
60  match r:
61    case Fail{e}:
62      Act.fail(Maybe<&2, Json.Json>, 1, path ++ " exists but could not be parsed (" ++ e ++ "). Repair or move it, then retry — refusing to overwrite it unread.")
63    case Done{j}:
64      Act.pure(Maybe<&2, Json.Json>, Some{j})