def write_q

cswap-bend-cli@0.1.0.0 · daemon/quarantine.bend:35

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/daemon/state.bend as St

35def write_q(+root: String, +slot: String, +email: String, +reason: String, +ts: String, +fp: String) -> Act.of(Unit):
36  St.with_state_lock(Unit, root,
37    do ActM<Unit>:
38      st : Json.Json <- Act.lift(Json.Json, St.read_state(root))
39      St.write_state(root, St.quarantine(st, slot, email, reason, ts, fp_opt(fp))))