def quarantine

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

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/io.bend as SIo
import cswap-bend-cli@0.1.0.0/daemon/events.bend as Ev
import cswap-bend-cli@0.1.0.0/daemon/freshen.bend as Fr

41# Put an account in quarantine (stored with the fingerprint of the credential
42# that died) and answer the event.
43def quarantine(+root: String, +slot: String, +email: String, +reason: String, +ts: String) -> Act.of(Json.Json):
44  do ActM<Json.Json>:
45    creds : String <- SIo.read_cred(root, slot, email)
46    fp : String <- Act.lift(String, Fr.fingerprint(creds))
47    write_q(root, slot, email, reason, ts, fp)
48    return Ev.quarantined(ts, slot, email, reason)