+ drain

src/management.ml

@@ -445,4 +445,29 @@ let update_wire_disable ~db_conn
       in
       ()
 
-(*[@@@ocaml.warning "-27"]*)
+[@@@ocaml.warning "-27"]
+
+let verify_drain
+    DrainProfitsMessage.
+      {
+        debit_account_section;
+        credit_payto_uri;
+        wtid;
+        master_sig;
+        date;
+        amount;
+      } =
+  let open Bin_sig.MasterDrainProfit in
+  let open Bin_type in
+  verify ~key:Config.Exchange.master_public_key master_sig
+    {
+      wtid;
+      date;
+      amount;
+      h_section= Hash_64_cstr.hash debit_account_section;
+      h_payto= FullPaytoHash.hash credit_payto_uri;
+    }
+
+let update_drain ~db_conn v =
+  let+ () = Pg.insert_drain_profit db_conn v |> unwrap_err_caqti in
+  ()