19 lines
416 B
OCaml
19 lines
416 B
OCaml
type t
|
|
type exchange_pub = Crypto.EddsaPublicKey.t
|
|
|
|
val get_sm_key : t -> Signkey.t
|
|
val get_signkeys : t -> Signkey.t list
|
|
|
|
val add_master_signatures :
|
|
(module Pg.CONN) ->
|
|
t ->
|
|
(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
|