This commit is contained in:
swrup 2026-02-21 16:21:15 +01:00
parent bded77a939
commit 9b389d6f69

View file

@ -92,8 +92,8 @@ let split_in_periodes ~start ~end_ =
go acc start end_ go acc start end_
let gen_additional_keys_until_lookahead ~now l = let gen_additional_keys_until_lookahead ~now l =
(* try to _not_ generate keys with validity start in the past (* TODO do not exceed lookahead (probably more important...) *)
(probably not important) *) (* try to not generate keys with validity start in the past *)
let start = let start =
match List.rev (sort_keys l) with match List.rev (sort_keys l) with
| [] -> now | [] -> now