From 4e98c533c52e48f1a473076d23ebae7250e68523 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 23 Nov 2025 15:56:26 +0100
Subject: [PATCH]

---
 src/pg.ml | 49 +++++++++++++++++++++++--------------------------
 1 file changed, 23 insertions(+), 26 deletions(-)

diff --git a/src/pg.ml b/src/pg.ml
index 7d890ad0..a174b100 100644
--- a/src/pg.ml
+++ b/src/pg.ml
@@ -95,11 +95,9 @@ let activate_signing_key =
       "INSERT INTO exchange_sign_keys (exchange_pub, valid_from, expire_sign, \
        expire_legal, master_sig) VALUES ($1, $2, $3, $4, $5)"
   in
-  fun (module Conn : CONN) exchange_signkey ->
-    let Signkey.
-          { pub; stamp_start; stamp_expire; stamp_end; master_sig; sign= _ } =
-      exchange_signkey
-    in
+  fun (module Conn : CONN)
+    Signkey.{ pub; stamp_start; stamp_expire; stamp_end; master_sig; sign= _ }
+  ->
     (* TODO master_sig *)
     let master_sig = master_sig |> Option.get in
     Conn.exec insert_signkey
@@ -129,27 +127,26 @@ let add_denomination_key =
        fee_withdraw, fee_deposit, fee_refresh, fee_refund, age_mask) VALUES \
        ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12, $13)"
   in
-  fun (module Conn : CONN) denom ->
-    let Denomination.
-          {
-            pub;
-            section_name= _;
-            value;
-            stamp_start;
-            stamp_expire_withdraw;
-            stamp_expire_deposit;
-            stamp_expire_legal;
-            fee_withdraw;
-            fee_deposit;
-            fee_refresh;
-            fee_refund;
-            age_mask;
-            h_pub;
-            sign= _;
-            master_sig;
-          } =
-      denom
-    in
+  fun (module Conn : CONN)
+    Denomination.
+      {
+        pub;
+        section_name= _;
+        value;
+        stamp_start;
+        stamp_expire_withdraw;
+        stamp_expire_deposit;
+        stamp_expire_legal;
+        fee_withdraw;
+        fee_deposit;
+        fee_refresh;
+        fee_refund;
+        age_mask;
+        h_pub;
+        sign= _;
+        master_sig;
+      }
+  ->
     (* TODO master_sig *)
     let master_sig = master_sig |> Option.get in
     Conn.exec denomination_insert