rm database.ml + ~ master_sig param in pg

src/pg.ml

@@ -1,7 +1,11 @@
 (* TODO
+
    how to fix postgres/caqti tuple type?
    try something with OID?
-   need to add boilerplate in each query for amounts *)
+   need to add boilerplate in each query for amounts
+
+   GNU Taler db-events?
+   it seems caqti/pgx does not support it *)
 
 open Crypto
 
@@ -101,10 +105,18 @@ let activate_signing_key =
        expire_legal, master_sig) VALUES ($1, $2, $3, $4, $5)"
   in
   fun (module Conn : CONN)
-    Signkey.{ pub; priv= _; stamp_start; stamp_expire; stamp_end; master_sig }
+    ~master_sig
+    Signkey.
+      {
+        pub;
+        priv= _;
+        stamp_start;
+        stamp_expire;
+        stamp_end;
+        master_sig= master_sig_opt;
+      }
   ->
-    (* TODO master_sig *)
-    let master_sig = master_sig |> Option.get in
+    assert (master_sig_opt = Some master_sig);
     Conn.exec insert_signkey
       (pub, stamp_start, stamp_expire, stamp_end, master_sig)
 
@@ -136,6 +148,7 @@ let add_denomination_key =
        ($16,$17), $18)"
   in
   fun (module Conn : CONN)
+    ~master_sig
     Denomination.
       {
         pub;
@@ -152,11 +165,10 @@ let add_denomination_key =
         fee_refund;
         age_mask;
         h_pub;
-        master_sig;
+        master_sig= master_sig_opt;
       }
   ->
-    (* TODO master_sig *)
-    let master_sig = master_sig |> Option.get in
+    assert (master_sig_opt = Some master_sig);
     Conn.exec denomination_insert
       ( h_pub,
         pub,