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

Browse source
This commit is contained in:
swrup 2025-10-19 02:01:55 +02:00
parent 7c230bdb8e
commit 2c3c3a63d1
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/signkey.ml
View file

@ -19,10 +19,7 @@ let generate () =
correctly set those: *) correctly set those: *)
let stamp_start = Ptime_clock.now () in let stamp_start = Ptime_clock.now () in
let stamp_expire = let stamp_expire =
match Ptime.add_span stamp_start Config.Exchange.signkey_legal_duration with Util.ptime_add_span_exn stamp_start Config.Exchange.signkey_legal_duration
| None ->
Fmt.failwith "Ptime.add_span: result is not in the range [min;max]"
| Some v -> v
in in
let stamp_end = stamp_expire in let stamp_end = stamp_expire in
let priv, pub = Mirage_crypto_ec.Ed25519.generate () in let priv, pub = Mirage_crypto_ec.Ed25519.generate () in