+ wip clean keys.ml

src/keys_intf.ml

@@ -1,43 +1,29 @@
+type 'a result = ('a, string) Result.t
+
 module type S = sig
   open Crypto
 
-  val sm_pubkey : eddsa_pub
-  val sign_with_sm_key : string -> eddsa_sig
-  val sign_with_signkey : pub:eddsa_pub -> string -> eddsa_sig
-  val verify_with_master_key : eddsa_sig -> msg:string -> (unit, string) result
-  val verify_with_sm_key : eddsa_sig -> msg:string -> (unit, string) result
-
-  val verify_with_signkey :
-    pub:eddsa_pub -> eddsa_sig -> msg:string -> (unit, string) result
-
-  val get_signkeys : unit -> Signkey.t list
-  val get_denominations : unit -> Denomination.t list
-  val get_future_signkeys : unit -> Api.FutureSignKey.t list
-  val get_future_denominations : unit -> Api.FutureDenom.t list
-  val find_signkey : eddsa_pub -> Signkey.t option
-  val find_denomination : denom_hash -> Denomination.t option
-  val find_future_signkey : eddsa_pub -> Api.FutureSignKey.t option
-  val find_future_denomination : denom_hash -> Api.FutureDenom.t option
+  val master_pub : eddsa_pub
+  val secmod_rsa_pub : eddsa_pub
+  val secmod_eddsa_pub : eddsa_pub
+  val sign : pub:eddsa_pub -> string -> eddsa_sig
+  val sign_denom : pub:rsa_pub -> string -> string
+  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 certify_future_signkey :
-    eddsa_pub ->
-    master_sig:Signatures.ExchangeSigningKeyValidity.t ->
-    (unit, string) result
+    eddsa_pub -> Signatures.ExchangeSigningKeyValidity.t -> unit result
 
   val certify_future_denomination :
-    denom_hash ->
-    master_sig:Signatures.DenominationKeyValidity.t ->
-    (unit, string) result
+    denom_hash -> Signatures.DenominationKeyValidity.t -> unit result
 
   val revoke_signkey :
-    eddsa_pub ->
-    Signatures.MasterSigningKeyRevocation.t ->
-    (unit, string) result
+    eddsa_pub -> Signatures.MasterSigningKeyRevocation.t -> unit result
 
   val revoke_denomination :
-    denom_hash ->
-    Signatures.MasterDenominationKeyRevocation.t ->
-    (unit, string) result
-
-  val save : unit -> (unit, string) result
+    denom_hash -> Signatures.MasterDenominationKeyRevocation.t -> unit result
 end