+ ..

src/secmod_signkey.mli

@@ -1,19 +1,22 @@
 type t
-type exchange_pub = Crypto.EddsaPublicKey.t
+type eddsa_priv = Crypto.EddsaPrivateKey.t
+type eddsa_pub = Crypto.EddsaPublicKey.t
 
-val get_sm_key : t -> Signkey.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 init : (module Pg.CONN) -> t
+
+(* - management operations - *)
 
 val add_master_signatures :
   (module Pg.CONN) ->
   t ->
-  (exchange_pub * Bin_sig.ExchangeSigningKeyValidity.t) list ->
+  (eddsa_pub * Bin_sig.ExchangeSigningKeyValidity.t) list ->
   (unit, string) result
 
 val revoke_signkey :
   t ->
-  exchange_pub ->
+  eddsa_pub ->
   Bin_sig.MasterSigningKeyRevocation.t ->
   (unit, string) result
-
-val init : (module Pg.CONN) -> t