+ aml-officers

src/pg.ml

@@ -429,3 +429,24 @@ let insert_drain_profit =
   ->
     Conn.exec insert_drain_profit
       (wtid, debit_account_section, credit_payto_uri, date, amount, master_sig)
+
+let insert_aml_officer =
+  let exchange_do_insert_aml_officer =
+    let master_sig = Bin_sig.MasterAmlOfficerStatus.caqti in
+    Caqti_type.(t6 eddsa_pub master_sig string bool bool time ->! time)
+      "SELECT out_last_change FROM exchange_do_insert_aml_officer ($1, $2, $3, \
+       $4, $5, $6)"
+  in
+  fun (module Conn : CONN)
+    Api.AmlOfficerSetup.
+      {
+        officer_pub;
+        officer_name;
+        is_active;
+        read_only;
+        master_sig;
+        change_date;
+      }
+  ->
+    Conn.find exchange_do_insert_aml_officer
+      (officer_pub, master_sig, officer_name, is_active, read_only, change_date)