mte/src/secmod_signkey.mli

20 lines
416 B
OCaml
Raw Normal View History

2025-12-06 23:25:29 +01:00
type t
2025-12-11 03:19:37 +01:00
type exchange_pub = Crypto.EddsaPublicKey.t
2025-12-06 23:25:29 +01:00
val get_sm_key : t -> Signkey.t
val get_signkeys : t -> Signkey.t list
2025-12-07 01:02:54 +01:00
val add_master_signatures :
(module Pg.CONN) ->
t ->
2025-12-11 03:19:37 +01:00
(exchange_pub * Bin_sig.ExchangeSigningKeyValidity.t) list ->
(unit, string) result
val revoke_signkey :
t ->
exchange_pub ->
Bin_sig.MasterSigningKeyRevocation.t ->
2025-12-07 01:02:54 +01:00
(unit, string) result
2025-12-06 23:25:29 +01:00
val init : (module Pg.CONN) -> t