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