abstr type for signature

src/management.ml

@@ -32,7 +32,7 @@ let mk_future_denom denom_secmod_sign_f
     let open Binary_formats in
     let h_denom_pub =
       (* TODO hash *)
-      let v = pub |> Types.RsaPublicKey.to_string in
+      let v = pub |> Types.RsaPublicKey.to_b32 in
       DenominationHash.{ v= { v } }
     in
     let h_section_name =
@@ -85,7 +85,7 @@ let mk_future_sign_key signkey_secmod_sign_f
             to not mixup hashed values with others
        - have a make function for wrapped HashCode structs
          make it take the relevant type *)
-    let v = EddsaPublicKey.to_string pub in
+    let v = EddsaPublicKey.to_b32 pub in
     Binary_formats.ExchangePublicKeyP.{ v= { v } }
   in
   let signkey_secmod_sig =