rename

src/crypto.ml

@@ -155,6 +155,11 @@ module RsaPrivateKey = struct
 
   type t = priv
 
+  let generate ~bits () =
+    let priv = generate ~bits () in
+    let pub = pub_of_priv priv in
+    (priv, pub)
+
   let pub_of_priv = pub_of_priv
   let of_octets = Util.Bin_rsa.priv_of_octets
   let to_octets = Util.Bin_rsa.priv_to_octets
@@ -187,3 +192,12 @@ end = struct
     let to_b32 t = B32.encode t in
     Jsont.of_of_string ~kind:"RsaSignature" of_b32 ~enc:to_b32
 end
+
+(* some type aliases, just for prettier .mli *)
+type eddsa_priv = EddsaPrivateKey.t
+type eddsa_pub = EddsaPublicKey.t
+type eddsa_sig = EddsaSignature.t
+type rsa_priv = RsaPrivateKey.t
+type rsa_pub = RsaPublicKey.t
+type rsa_sig = RsaSignature.t
+type denomination_hash = Bin_type.DenominationHash.t