open Crypto

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

module type KEYS = sig
  val sign : eddsa_pub -> string -> eddsa_sig
  val sign_denom : rsa_pub -> string -> rsa_sig
  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 make_future_keys_response : unit -> Api.FutureKeysResponse.t 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