add signkey revoke

(untested)
This commit is contained in:
swrup 2025-12-11 03:19:37 +01:00
parent 472463e68b
commit 399a977c2d
7 changed files with 77 additions and 11 deletions

View file

@ -1,4 +1,5 @@
type t
type exchange_pub = Crypto.EddsaPublicKey.t
val get_sm_key : t -> Signkey.t
val get_signkeys : t -> Signkey.t list
@ -6,7 +7,13 @@ val get_signkeys : t -> Signkey.t list
val add_master_signatures :
(module Pg.CONN) ->
t ->
(Crypto.EddsaPublicKey.t * Bin_sig.ExchangeSigningKeyValidity.t) list ->
(exchange_pub * Bin_sig.ExchangeSigningKeyValidity.t) list ->
(unit, string) result
val revoke_signkey :
t ->
exchange_pub ->
Bin_sig.MasterSigningKeyRevocation.t ->
(unit, string) result
val init : (module Pg.CONN) -> t