def removal3

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

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

203def removal3(+root: String, +seq: Json.Json, +num: String, +ts: String, +email: String) -> Act.of(String):
204  do ActM<String>:
205    SIo.archive_slot(root, num, email, ts)
206    SIo.write_seq(root, SSeq.stamp(SSeq.drop_account(seq, num), ts))
207    SIo.log(root, "INFO", "Removed account " ++ num ++ ": " ++ email ++ "; credential kept under credentials/.removed/")
208    return active_warning(seq, num, email) ++ "Removed Account-" ++ num ++ " (" ++ email ++ ")"