diff --git a/src/config.ml b/src/config.ml index 7f74db6c..468648c5 100644 --- a/src/config.ml +++ b/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 diff --git a/src/secmod_eddsa.ml b/src/secmod_eddsa.ml index ee787cdf..e995a054 100644 --- a/src/secmod_eddsa.ml +++ b/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