def drop_slot

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

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

179# Archive a slot's files and forget its record; sequence.json is rewritten.
180def drop_slot(+root: String, +seq: Json.Json, +num: String, +ts: String) -> Act.of(Json.Json):
181  do ActM<Json.Json>:
182    archive_slot(root, num, slot_email(seq, num), ts)
183    +next : Json.Json = SSeq.stamp(SSeq.drop_account(seq, num), ts)
184    write_seq(root, next)
185    return next