+ partners

src/management.ml

@@ -476,7 +476,7 @@ let verify_aml_officier
         officer_pub;
         officer_name;
         is_active;
-        read_only=_;
+        read_only= _;
         master_sig;
         change_date;
       } =
@@ -494,4 +494,30 @@ let update_aml_officier ~db_conn v =
   let+ _last_change = Pg.insert_aml_officer db_conn v |> unwrap_err_caqti in
   ()
 
-(*[@@@ocaml.warning "-27"]*)
+[@@@ocaml.warning "-27"]
+
+let verify_partner
+    ExchangePartnerSetupRequest.
+      {
+        partner_base_url;
+        partner_pub;
+        wad_frequency;
+        master_sig;
+        start_date;
+        end_date;
+        wad_fee;
+      } =
+  let open Bin_sig.PartnerConfiguration in
+  verify ~key:Config.Exchange.master_public_key master_sig
+    {
+      partner_pub;
+      start_date;
+      end_date;
+      wad_frequency;
+      wad_fee;
+      h_url= Bin_type.Hash_64_cstr.hash partner_base_url;
+    }
+
+let update_partner ~db_conn v =
+  let+ () = Pg.insert_partner db_conn v |> unwrap_err_caqti in
+  ()