swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-02-26 16:34:43 +01:00
parent 9372506c45
commit 9a9bea9fc5
1 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/keys.ml
View file

@ -53,6 +53,17 @@ module Make (Conn : Pg.CONN) : S = struct
let find_signkey pub = Pg.find_signkey conn pub |> unwrap_err_caqti let find_signkey pub = Pg.find_signkey conn pub |> unwrap_err_caqti
let find_denomination h_pub = Pg.find_denom conn h_pub |> unwrap_err_caqti let find_denomination h_pub = Pg.find_denom conn h_pub |> unwrap_err_caqti
let warn_key_state =
let first = ref true in
fun () ->
if !first then (
Logs.warn (fun m ->
m
"some keys found in database are missing from secmod, (unclean \
database/secmod state?)");
first := false;
())
let signkeys () : Signkey.t list result = let signkeys () : Signkey.t list result =
let now = Timestamp.of_ptime @@ Ptime_clock.now () in let now = Timestamp.of_ptime @@ Ptime_clock.now () in
let+ l = Pg.get_signkeys conn ~now |> unwrap_err_caqti in let+ l = Pg.get_signkeys conn ~now |> unwrap_err_caqti in
@ -64,10 +75,7 @@ module Make (Conn : Pg.CONN) : S = struct
match missing_l with match missing_l with
| [] -> l | [] -> l
| _ -> | _ ->
Logs.warn (fun m -> warn_key_state ();
m
"some signkeys found in database are missing from secmod, \
(unclean database/secmod state?)");
Logs.debug (fun m -> m "found %d active signkey(s)" (List.length l)); Logs.debug (fun m -> m "found %d active signkey(s)" (List.length l));
l l
@ -81,10 +89,7 @@ module Make (Conn : Pg.CONN) : S = struct
match missing_l with match missing_l with
| [] -> l | [] -> l
| _ -> | _ ->
Logs.warn (fun m -> warn_key_state ();
m
"some denominations found in database are missing from secmod, \
(unclean database/secmod state?)");
Logs.debug (fun m -> Logs.debug (fun m ->
m "found %d active denomination(s)" (List.length l)); m "found %d active denomination(s)" (List.length l));
l l