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-22 00:11:33 +01:00
parent 0274ba6bd0
commit ac1e632f16
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/http_management.ml
View file

@ -77,7 +77,14 @@ module Keys_post = struct
list_iter list_iter
(fun SignKeySignature.{ key; master_sig } -> (fun SignKeySignature.{ key; master_sig } ->
match List.find_opt (fun sk -> sk.FutureSignKey.key = key) fsk_l with 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) | Some fsk -> verify_sk (module Keys) fsk master_sig)
signkey_sigs signkey_sigs