abstr type for signature

src/secmod_denom.ml

@@ -1,3 +1,5 @@
+open Types
+
 type rsa_denom = {
   section_name: string;
   value: Amount.t;
@@ -9,14 +11,8 @@ type rsa_denom = {
   fee_deposit: Amount.t;
   fee_refresh: Amount.t;
   fee_refund: Amount.t;
-  pub: Types.RsaPublicKey.t;
-  sign:
-    (* TODO sig type
-       should be
-       string -> RsaSignature.t
-       + b32 *)
-    string ->
-    string;
+  pub: RsaPublicKey.t;
+  sign: string -> RsaSignature.t;
 }
 
 let hash_pub _pub = "todo public key converted to Crockford Base32"
@@ -36,7 +32,7 @@ let make_rsa_denom
        rsa_keysize;
        age_restricted= _;
      } :
-      Types.Config_types.Coin.t) =
+      Config_types.Coin.t) =
   assert (cipher = `RSA);
 
   let stamp_start = Ptime_clock.now () in
@@ -51,7 +47,7 @@ let make_rsa_denom
   let open Mirage_crypto_pk.Rsa in
   let priv = generate ~bits:rsa_keysize () in
   let pub = pub_of_priv priv in
-  let sign = decrypt ~crt_hardening:true ~mask:`Yes ~key:priv in
+  let sign = RsaSignature.sign ~key:priv in
   {
     section_name;
     value;