+ aml-officers

src/management.ml

@@ -445,8 +445,6 @@ let update_wire_disable ~db_conn
       in
       ()
 
-[@@@ocaml.warning "-27"]
-
 let verify_drain
     DrainProfitsMessage.
       {
@@ -471,3 +469,29 @@ let verify_drain
 let update_drain ~db_conn v =
   let+ () = Pg.insert_drain_profit db_conn v |> unwrap_err_caqti in
   ()
+
+let verify_aml_officier
+    AmlOfficerSetup.
+      {
+        officer_pub;
+        officer_name;
+        is_active;
+        read_only=_;
+        master_sig;
+        change_date;
+      } =
+  let open Bin_sig.MasterAmlOfficerStatus in
+  let is_active = match is_active with true -> 1_l | false -> 0_l in
+  verify ~key:Config.Exchange.master_public_key master_sig
+    {
+      change_date;
+      officer_pub;
+      h_officer_name= Bin_type.Hash_64_cstr.hash officer_name;
+      is_active;
+    }
+
+let update_aml_officier ~db_conn v =
+  let+ _last_change = Pg.insert_aml_officer db_conn v |> unwrap_err_caqti in
+  ()
+
+(*[@@@ocaml.warning "-27"]*)