def remove4

cswap-bend-cli@0.1.0.0 · store/ops.bend:234

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/store/base.bend as SBase
import cswap-bend-cli@0.1.0.0/store/io.bend as SIo

234def remove4(+root: String, +ident: String, +m: Maybe<&2, Json.Json>) -> Act.of(String):
235  match m:
236    case None{}:
237      Act.fail(String, 1, "No accounts are managed yet")
238    case Some{seq}:
239      do ActM<String>:
240        ts : String <- SIo.now_iso()
241        remove3(root, ident, SBase.compact_ts(ts), seq)