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

Browse source
This commit is contained in:
swrup 2025-12-16 15:37:54 +01:00
parent eb113560a5
commit 0d2f6fc317
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/secmod.ml
View file

@ -68,21 +68,20 @@ let get_denoms t =
Miou.Mutex.protect t.lock @@ fun () -> Miou.Mutex.protect t.lock @@ fun () ->
Hashtbl.to_seq_values t.dn_ht |> List.of_seq Hashtbl.to_seq_values t.dn_ht |> List.of_seq
let get_signkeys_data t = let find_signkey t pub =
Miou.Mutex.protect t.lock @@ fun () -> Miou.Mutex.protect t.lock @@ fun () -> Hashtbl.find_opt t.sk_ht pub
Hashtbl.to_seq_values t.sk_ht |> List.of_seq |> List.map (fun v -> v.sk_data)
let get_denoms_data t = let find_denom t h_denom =
Miou.Mutex.protect t.lock @@ fun () -> Miou.Mutex.protect t.lock @@ fun () -> Hashtbl.find_opt t.dn_ht h_denom
Hashtbl.to_seq_values t.dn_ht |> List.of_seq |> List.map (fun v -> v.dn_data)
let get_signkeys_data t = get_signkeys t |> List.map (fun v -> v.sk_data)
let get_denoms_data t = get_denoms t |> List.map (fun v -> v.dn_data)
let find_signkey_data t pub = let find_signkey_data t pub =
Miou.Mutex.protect t.lock @@ fun () -> find_signkey t pub |> Option.map (fun v -> v.sk_data)
Hashtbl.find_opt t.sk_ht pub |> Option.map (fun v -> v.sk_data)
let find_denom_data t h_denom = let find_denom_data t h_denom =
Miou.Mutex.protect t.lock @@ fun () -> find_denom t h_denom |> Option.map (fun v -> v.dn_data)
Hashtbl.find_opt t.dn_ht h_denom |> Option.map (fun v -> v.dn_data)
let add_signkey_master_signatures conn t l = let add_signkey_master_signatures conn t l =
Miou.Mutex.protect t.lock @@ fun () -> Miou.Mutex.protect t.lock @@ fun () ->