mte/src/secmod_denom.mli

23 lines
577 B
OCaml
Raw Normal View History

2025-12-07 17:21:08 +01:00
open Bin_sig
2025-12-15 15:01:40 +01:00
type eddsa_priv = Crypto.EddsaPrivateKey.t
type eddsa_pub = Crypto.EddsaPublicKey.t
2025-12-07 17:21:08 +01:00
type h_denom_pub = Bin_type.DenominationHash.t
2025-12-06 23:25:29 +01:00
type t
2025-12-15 15:01:40 +01:00
val get_sm_key_priv : t -> eddsa_priv
val get_sm_key_pub : t -> eddsa_pub
2025-12-06 23:25:29 +01:00
val get_denoms : t -> Denomination.t list
2025-12-15 15:01:40 +01:00
val init : (module Pg.CONN) -> t
(* - management operations - *)
2025-12-07 01:02:54 +01:00
val add_master_signatures :
(module Pg.CONN) ->
t ->
2025-12-07 17:21:08 +01:00
(h_denom_pub * DenominationKeyValidity.t) list ->
2025-12-07 01:02:54 +01:00
(unit, string) result
2025-12-07 17:21:08 +01:00
val revoke_denomination :
t -> h_denom_pub -> MasterDenominationKeyRevocation.t -> (unit, string) result