src/config.ml

@@ -189,8 +189,8 @@ module Exchange_secmod_rsa = struct
   let lookahead_sign = get "lookahead_sign" |> duration
   let overlap_duration = get "overlap_duration" |> duration
   let duration = get "duration" |> duration
-  let sm_priv_key = get "sm_priv_key"
   let key_dir = get "key_dir"
+  let sm_priv_key = get "sm_priv_key"
 end
 
 module Exchange_secmod_eddsa = struct

src/secmod_eddsa.ml

@@ -114,10 +114,6 @@ let gen_additional_keys_until_lookahead ~now l =
   in
   new_keys
 
-let check_periodes _l =
-  (* TODO *)
-  Ok ()
-
 let sm_key_fpath =
   Result.get_ok
   @@
@@ -159,7 +155,6 @@ let init () =
         Ok { sm_key_priv; sm_key_pub; keys= [] }
   in
   let now = Absolute.of_ptime (Ptime_clock.now ()) in
-  let* () = check_periodes t.keys in
   let new_keys = gen_additional_keys_until_lookahead ~now t.keys in
   let+ () = list_iter write_key new_keys in
   let keys = sort_keys (t.keys @ new_keys) in
@@ -198,6 +193,7 @@ let delete_outdated ~now =
   |> list_iter delete_key
 
 (* TODO
+  - more checks
   - sign: check time
   - schedule tasks
   - !lock