This commit is contained in:
parent
650264f21e
commit
94a6e4a84a
11 changed files with 15 additions and 31 deletions
|
|
@ -103,7 +103,7 @@ let split_in_periodes ~start ~end_ =
|
|||
in
|
||||
go acc start end_
|
||||
|
||||
(* TODO do not exceed lookahead (probably more important...) *)
|
||||
(* TODO do not exceed lookahead *)
|
||||
(* try to not generate keys with validity start in the past *)
|
||||
let gen_additional_keys_until_lookahead ~now l =
|
||||
let start =
|
||||
|
|
@ -118,7 +118,6 @@ let gen_additional_keys_until_lookahead ~now l =
|
|||
let new_keys = List.map (fun (t1, t2) -> gen_key t1 t2) periodes in
|
||||
new_keys
|
||||
|
||||
(* TODO config *)
|
||||
let sm_key_fpath =
|
||||
Result.get_ok
|
||||
@@
|
||||
|
|
@ -221,5 +220,5 @@ end
|
|||
- more checks
|
||||
- sign: check timestamps before signing
|
||||
- schedule tasks
|
||||
- !lock
|
||||
- ! use lock
|
||||
*)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue