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,8 +127,8 @@ 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.
+  fun (module Conn : CONN)
+    Denomination.
       {
         pub;
         section_name= _;
@@ -147,9 +145,8 @@ let add_denomination_key =
         h_pub;
         sign= _;
         master_sig;
-          } =
-      denom
-    in
+      }
+  ->
     (* TODO master_sig *)
     let master_sig = master_sig |> Option.get in
     Conn.exec denomination_insert