add signkey revoke
(untested)
This commit is contained in:
parent
472463e68b
commit
399a977c2d
7 changed files with 77 additions and 11 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue