+ partners

src/pg.ml

@@ -450,3 +450,33 @@ let insert_aml_officer =
   ->
     Conn.find exchange_do_insert_aml_officer
       (officer_pub, master_sig, officer_name, is_active, read_only, change_date)
+
+let insert_partner =
+  let insert_partner =
+    let master_sig = Bin_sig.PartnerConfiguration.caqti in
+    Caqti_type.(
+      t7 eddsa_pub time time time_span amount master_sig string ->. unit)
+      "INSERT INTO partners (partner_master_pub, start_date, end_date, \
+       wad_frequency, wad_fee, master_sig, partner_base_url) VALUES ($1, $2, \
+       $3, $4, ($5,$6), $7, $8) ON CONFLICT DO NOTHING"
+  in
+  fun (module Conn : CONN)
+    Api.ExchangePartnerSetupRequest.
+      {
+        partner_base_url;
+        partner_pub;
+        wad_frequency;
+        master_sig;
+        start_date;
+        end_date;
+        wad_fee;
+      }
+  ->
+    Conn.exec insert_partner
+      ( partner_pub,
+        start_date,
+        end_date,
+        wad_frequency,
+        wad_fee,
+        master_sig,
+        partner_base_url )