From ac1e632f162823b98cdf999154ad71614d6f1895 Mon Sep 17 00:00:00 2001 From: swrup Date: Sun, 22 Feb 2026 00:11:33 +0100 Subject: [PATCH] --- src/http_management.ml | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/http_management.ml b/src/http_management.ml index a8dda624..72144975 100644 --- a/src/http_management.ml +++ b/src/http_management.ml @@ -77,7 +77,14 @@ module Keys_post = struct list_iter (fun SignKeySignature.{ key; master_sig } -> match List.find_opt (fun sk -> sk.FutureSignKey.key = key) fsk_l with - | None -> Error "future signkey not found" + | None -> + ( + let* opt = Keys.find_signkey key in + match opt with + | None -> + Error "future signkey not found" + | Some _sk -> + ) | Some fsk -> verify_sk (module Keys) fsk master_sig) signkey_sigs