1
2
3
4
5
6
7
8
9
let add address =
  let key = "blacklist/" ^ address in
  let msg = "Revoking private key " ^ address ^ "." in
  Store.set ~msg ~key ""


let exists address =
  let key = "blacklist/" ^ address in
  match Store.get ~key with None -> false | Some _ -> true