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

add timestamp.ml

Browse source
This commit is contained in:
swrup 2025-11-28 16:57:48 +01:00
parent d760a54b61
commit ada57eb74a
10 changed files with 143 additions and 142 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tools/offline.ml
View file

@ -49,17 +49,13 @@ let _denom_signature master_priv master_pub
let master_sig =
let open Bin_type in
let open Bin_signature.DenominationKeyValidityPS in
(* TODO time *)
let of_time ts : TimeAbsoluteNBO.t =
TimeAbsoluteNBO.of_int64 @@ Api.Timestamp.to_int64 ts
in
let denom_key_validity =
{
master= master_pub;
start= of_time stamp_start;
expire_withdraw= of_time stamp_expire_withdraw;
expire_spend= of_time stamp_expire_deposit;
expire_legal= of_time stamp_expire_legal;
start= stamp_start;
expire_withdraw= stamp_expire_withdraw;
expire_spend= stamp_expire_deposit;
expire_legal= stamp_expire_legal;
value;
fee_withdraw;
fee_deposit;