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

wip int64 timestamp

Browse source
This commit is contained in:
swrup 2025-12-07 08:51:42 +01:00
parent 32fa5b1fc3
commit 12a384a33a
8 changed files with 49 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/denomination.ml
View file

@ -36,16 +36,14 @@ let make
Config.Coin.t) =
assert (cipher = `RSA);
let stamp_start = Ptime_clock.now () |> Option.some in
let stamp_start = Timestamp.now () in
let stamp_expire_withdraw =
Timestamp.add_span_exn stamp_start (Some duration_withdraw)
Timestamp.add_span_exn stamp_start duration_withdraw
in
let stamp_expire_deposit =
Timestamp.add_span_exn stamp_start (Some duration_spend)
in
let stamp_expire_legal =
Timestamp.add_span_exn stamp_start (Some duration_legal)
Timestamp.add_span_exn stamp_start duration_spend
in
let stamp_expire_legal = Timestamp.add_span_exn stamp_start duration_legal in
let open Mirage_crypto_pk.Rsa in
let priv = generate ~bits:rsa_keysize () in