This commit is contained in:
swrup 2025-12-15 16:43:49 +01:00
parent 15c132829e
commit f0254c6f5d
9 changed files with 140 additions and 137 deletions

View file

@ -1,12 +1,11 @@
type eddsa_priv = Crypto.EddsaPrivateKey.t
type eddsa_pub = Crypto.EddsaPublicKey.t
type h_denom_pub = Bin_type.DenominationHash.t
open Crypto
type t
val get_sm_key_priv : t -> eddsa_priv
val get_sm_key_pub : t -> eddsa_pub
val get_signkeys : t -> Signkey.t list
val get_denoms : t -> Denomination.t list
val get_signkeys : t -> Signkey_data.t list
val get_denoms : t -> Denom_data.t list
val init : (module Pg.CONN) -> t
(* - management operations - *)
@ -20,7 +19,7 @@ val add_signkey_master_signatures :
val add_denom_master_signatures :
(module Pg.CONN) ->
t ->
(h_denom_pub * Bin_sig.DenominationKeyValidity.t) list ->
(denomination_hash * Bin_sig.DenominationKeyValidity.t) list ->
(unit, string) result
val revoke_signkey :
@ -31,6 +30,6 @@ val revoke_signkey :
val revoke_denomination :
t ->
h_denom_pub ->
denomination_hash ->
Bin_sig.MasterDenominationKeyRevocation.t ->
(unit, string) result