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