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

rename

Browse source
This commit is contained in:
swrup 2026-02-17 09:30:20 +01:00
parent 24b9adc300
commit f6cf06591b
7 changed files with 30 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/http_management.ml
View file

@ -20,7 +20,7 @@ module Keys_get = struct
master_sig= _;
revoked_sig= _;
} :
Denom_data.t) =
Denomination.t) =
let denom_pub =
DenominationKey.of_rsa RsaDenominationKey.{ age_mask; rsa_pub= pub }
in
@ -60,7 +60,7 @@ module Keys_get = struct
master_sig= _;
revoked_sig= _;
} :
Signkey_data.t) =
Signkey.t) =
let signkey_secmod_sig =
let open Signatures.SigningKeyAnnouncement in
let exchange_pub = pub in
@ -74,14 +74,14 @@ module Keys_get = struct
let mk_future_keys_response (module Sm : Secmod.S) =
let future_signkeys =
Sm.get_signkeys_data ()
|> List.filter (fun k -> Option.is_none k.Signkey_data.master_sig)
|> List.filter (fun k -> Option.is_none k.Signkey.master_sig)
|> List.map (fun signkey -> mk_future_signkey (module Sm) signkey)
in
let future_denoms =
Sm.get_denoms_data ()
|> List.filter (fun k -> Option.is_none k.Denom_data.master_sig)
|> List.filter (fun k -> Option.is_none k.Denomination.master_sig)
|> List.map (fun dn_data ->
let opt = Sm.find_denom_section_name dn_data.Denom_data.h_pub in
let opt = Sm.find_denom_section_name dn_data.Denomination.h_pub in
match opt with
| None -> Fmt.failwith "section_name not found."
| Some section_name ->
@ -116,7 +116,7 @@ module Keys_post = struct
let verify_denom_signature (module Sm : Secmod.S)
DenomSignature.{ h_denom_pub; master_sig } =
let* denom =
match Sm.find_denom_data h_denom_pub with
match Sm.find_denomination h_denom_pub with
| None ->
Fmt.error
"404 not found, One of the keys for which a signature was provided \