src/management.ml

@@ -76,17 +76,7 @@ let mk_future_denom denom_secmod_sign_f
 let mk_future_sign_key signkey_secmod_sign_f
     ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
   let exchange_pub =
-    (* TODO
-       - I don't think its in crockford base 32 here
-         maybe SHA-512?
-         or maybe SHA-512 in crockford base 32
-         -> no, its not a hash here
-            need to change ugly binary_formats functor
-            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_b32 pub in
-    Binary_formats.ExchangePublicKeyP.{ v= { v } }
+    Binary_formats.ExchangePublicKeyP.{ v= { v= EddsaPublicKey.to_octets pub } }
   in
   let signkey_secmod_sig =
     let open Binary_formats in