def reserve.write

cswap-bend-cli@0.1.0.0 · ustore.bend:189

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

189def reserve.write(won: List<&2, Claim>, +root: String, +rows: Json.Json) -> Act.of(List<&2, Claim>):
190  match won:
191    case Nil{}:
192      Act.pure(List<&2, Claim>, [])
193    case Con{h, t}:
194      Act.bind(Unit, List<&2, Claim>, write_rows(root, rows), u => Act.pure(List<&2, Claim>, h <> t))