From dd8f57a5aca8795b6ca28d3a28d08d991ae1d21e Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Tue, 17 Feb 2026 17:41:02 +0100
Subject: [PATCH]

---
 src/secmod.ml | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/src/secmod.ml b/src/secmod.ml
index c6535d51..04aad16b 100644
--- a/src/secmod.ml
+++ b/src/secmod.ml
@@ -470,13 +470,11 @@ module Make (Conn : Pg.CONN) = struct
     let* () =
       Hashtbl.to_seq t.dn_key_ht
       |> List.of_seq
-      |> list_iter (fun (pub, priv) ->
-          let* section_name =
-            match Hashtbl.find_opt t.dn_section_name_ht pub with
-            | None -> Error "invalid state, section_name not found"
-            | Some s -> Ok s
-          in
-          write_rsa (dn_fname section_name) priv)
+      |> list_iter (fun (h_pub, priv) ->
+          match Hashtbl.find_opt t.dn_section_name_ht h_pub with
+          | None ->
+              Fmt.failwith "secmod save: invalid state, section_name not found"
+          | Some section_name -> write_rsa (dn_fname section_name) priv)
     in
     Logs.info (fun m -> m "saved secmod private keys data");
     Ok ()