mte/src/mod_intf.mli

type 'a result = ('a, string) Result.t

module type KEYS = sig
  open Crypto

  val master_pub : eddsa_pub
  val secmod_rsa_pub : eddsa_pub
  val secmod_eddsa_pub : eddsa_pub
  val sign : eddsa_pub -> string -> eddsa_sig
  val sign_denom : rsa_pub -> string -> string
  val find_signkey : eddsa_pub -> Signkey.t option result
  val find_denomination : denom_hash -> Denomination.t option result
  val signkeys : unit -> Signkey.t list result
  val denominations : unit -> Denomination.t list result
  val future_signkeys : unit -> Api.FutureSignKey.t list result
  val future_denominations : unit -> Api.FutureDenom.t list result

  val certify_future_signkey :
    eddsa_pub -> Signatures.ExchangeSigningKeyValidity.t -> unit result

  val certify_future_denomination :
    denom_hash -> Signatures.DenominationKeyValidity.t -> unit result

  val revoke_signkey :
    eddsa_pub -> Signatures.MasterSigningKeyRevocation.t -> unit result

  val revoke_denomination :
    denom_hash -> Signatures.MasterDenominationKeyRevocation.t -> unit result
end