swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

rm keys.mli

Browse source
This commit is contained in:
swrup 2026-02-21 22:49:06 +01:00
parent 45df994c13
commit e885b528e3
4 changed files with 24 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/keys.ml
View file

@ -4,9 +4,31 @@ open Crypto
(* TODO better error type *)
type 'a result = ('a, string) Result.t
module type S = Mod_intf.KEYS
module type S = 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
module Make (Conn : Pg.CONN) = struct
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
module Make (Conn : Pg.CONN) : S = struct
module Sm_eddsa = Secmod_eddsa.Make ()
module Sm_rsa = Secmod_rsa.Make ()