swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip pg.ml

Browse source
This commit is contained in:
swrup 2025-11-16 05:33:06 +01:00
parent c48892ca9a
commit 2433ff3932
3 changed files with 56 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/management.ml
View file

@ -27,14 +27,12 @@ let mk_future_denom denom_key_signf
let open Binary_formats in
let h_denom_pub = h_pub in
let h_section_name = Cstring_hash_64.hash section_name in
let anchor_time =
TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
in
let anchor_time = TimeAbsoluteNBO.{ v= Util.ptime_to_int64 stamp_start } in
let duration_withdraw =
let v =
Ptime.diff stamp_start stamp_expire_withdraw
|> Util.ptime_of_span_exn
|> Util.ptime_to_int64_us
|> Util.ptime_to_int64
in
TimeRelativeNBO.{ v }
in
@ -66,14 +64,12 @@ let mk_future_signkey signkey_signf
let signkey_secmod_sig =
let open Binary_formats in
let exchange_pub = pub in
let anchor_time =
TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
in
let anchor_time = TimeAbsoluteNBO.{ v= Util.ptime_to_int64 stamp_start } in
let duration =
let v =
Ptime.diff stamp_start stamp_expire
|> Util.ptime_of_span_exn
|> Util.ptime_to_int64_us
|> Util.ptime_to_int64
in
TimeRelativeNBO.{ v }
in