def record.write

cswap-bend-cli@0.1.0.0 · urec.bend:109

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
import cswap-bend-cli@0.1.0.0/ustore.bend as Ustore

109def record.write(done: List<&2, String>, +root: String, +rows: Json.Json) -> Act.of(List<&2, String>):
110  match done:
111    case Nil{}:
112      Act.pure(List<&2, String>, [])
113    case Con{h, t}:
114      Act.bind(Unit, List<&2, String>, Ustore.write_rows(root, rows), u => Act.pure(List<&2, String>, h <> t))