From 0d2f6fc317cb5185527672975f6623435bdd97ac Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Tue, 16 Dec 2025 15:37:54 +0100
Subject: [PATCH]

---
 src/secmod.ml | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/src/secmod.ml b/src/secmod.ml
index e7fd86b5..ca2aa281 100644
--- a/src/secmod.ml
+++ b/src/secmod.ml
@@ -68,21 +68,20 @@ let get_denoms t =
   Miou.Mutex.protect t.lock @@ fun () ->
   Hashtbl.to_seq_values t.dn_ht |> List.of_seq
 
-let get_signkeys_data t =
-  Miou.Mutex.protect t.lock @@ fun () ->
-  Hashtbl.to_seq_values t.sk_ht |> List.of_seq |> List.map (fun v -> v.sk_data)
+let find_signkey t pub =
+  Miou.Mutex.protect t.lock @@ fun () -> Hashtbl.find_opt t.sk_ht pub
 
-let get_denoms_data t =
-  Miou.Mutex.protect t.lock @@ fun () ->
-  Hashtbl.to_seq_values t.dn_ht |> List.of_seq |> List.map (fun v -> v.dn_data)
+let find_denom t h_denom =
+  Miou.Mutex.protect t.lock @@ fun () -> Hashtbl.find_opt t.dn_ht h_denom
+
+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 =
-  Miou.Mutex.protect t.lock @@ fun () ->
-  Hashtbl.find_opt t.sk_ht pub |> Option.map (fun v -> v.sk_data)
+  find_signkey t pub |> Option.map (fun v -> v.sk_data)
 
 let find_denom_data t h_denom =
-  Miou.Mutex.protect t.lock @@ fun () ->
-  Hashtbl.find_opt t.dn_ht h_denom |> Option.map (fun v -> v.dn_data)
+  find_denom t h_denom |> Option.map (fun v -> v.dn_data)
 
 let add_signkey_master_signatures conn t l =
   Miou.Mutex.protect t.lock @@ fun () ->