27 lines
1 KiB
OCaml
27 lines
1 KiB
OCaml
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
|