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

better relative time

Browse source
This commit is contained in:
swrup 2025-12-11 07:23:51 +01:00
parent 0e46ea162a
commit 262aeaec66
8 changed files with 115 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/management.ml
View file

@ -27,9 +27,7 @@ let mk_future_denom ~sm_denom_priv
let h_denom_pub = h_pub in
let h_section_name = Bin_type.Hash_64_cstr.hash section_name in
let anchor_time = stamp_start in
let duration_withdraw =
Timestamp.diff stamp_start stamp_expire_withdraw |> Timestamp.of_span_exn
in
let duration_withdraw = Timestamp.diff stamp_start stamp_expire_withdraw in
sign ~key:sm_denom_priv
{ h_denom_pub; h_section_name; anchor_time; duration_withdraw }
in
@ -56,9 +54,7 @@ let mk_future_signkey ~sm_signkey_priv
let open Bin_sig.SigningKeyAnnouncement in
let exchange_pub = pub in
let anchor_time = stamp_start in
let duration =
Timestamp.diff stamp_start stamp_expire |> Timestamp.of_span_exn
in
let duration = Timestamp.diff stamp_start stamp_expire in
sign ~key:sm_signkey_priv { exchange_pub; anchor_time; duration }
in
FutureSignKey.
@ -350,19 +346,17 @@ let verify_global_fees
history_fee;
account_fee;
purse_fee;
history_expiration= _;
history_expiration;
purse_account_limit;
purse_timeout= _;
purse_timeout;
master_sig;
} =
(* TODO time..... *)
let dummy_relative_time = None in
(* TODO what is kyc_timeout, kyc_fee ? *)
let dummy_amount =
Amount.make ~sign:None ~currency:"EUR" ~value:0_L ~fraction:0_l
|> Result.get_ok
in
(* TODO what is kyc_timeout, kyc_fee ? *)
let kyc_timeout = dummy_relative_time in
let kyc_timeout = None in
let kyc_fee = dummy_amount in
(* * *)
let open Bin_sig.GlobalFees in
@ -370,9 +364,9 @@ let verify_global_fees
{
start_date;
end_date;
purse_timeout= dummy_relative_time;
purse_timeout;
kyc_timeout;
history_expiration= dummy_relative_time;
history_expiration;
history_fee;
kyc_fee;
account_fee;