+ more binary_formats refacto

This commit is contained in:
swrup 2025-10-18 14:07:12 +02:00
parent 3dbe7eb370
commit e72ed3e972
3 changed files with 144 additions and 85 deletions

View file

@ -67,7 +67,7 @@ let mk_future_sign_key signkey_secmod_sign_f
({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
let signkey_secmod_sig =
let open Binary_formats in
let exchange_pub = ExchangePublicKeyP.{ v= EddsaPublicKey.to_octets pub } in
let exchange_pub = pub in
let anchor_time =
TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
in