+ more binary_formats refacto
This commit is contained in:
parent
3dbe7eb370
commit
e72ed3e972
3 changed files with 144 additions and 85 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue