def compare_fp

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

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/state.bend as St
import cswap-bend-cli@0.1.0.0/daemon/freshen.bend as Fr

84def compare_fp(+root: String, +st: Json.Json, +slot: String, +email_now: String) -> Act.of(Maybe<&2, Rel>):
85  do ActM<Maybe<&2, Rel>>:
86    creds : String <- SIo.read_cred(root, slot, email_now)
87    fp : String <- Act.lift(String, Fr.fingerprint(creds))
88    return changed(fp_differs(St.entry_fp(st, slot), fp), slot, email_now)