This commit is contained in:
parent
bded77a939
commit
d2c7867715
1 changed files with 2 additions and 2 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue