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