wip wire-fee & global-fees

src/handler.ml

@@ -113,3 +113,29 @@ let management_auditors_disable req auditor_pub server _env =
     Ok ""
   in
   respond_with_res res req
+
+let management_wire_fee_jsont = WireFeeSetupMessage.jsont
+
+let management_wire_fee req server _env =
+  let open Management in
+  let db_conn = Vif.Server.device Devices.db_connection server in
+  let res =
+    let* v = Vif.Request.of_json req |> unwrap_err_msg in
+    let* () = verify_wire_fee_setup_sig v in
+    let* () = update_wire_fee_setup ~db_conn v in
+    Ok ""
+  in
+  respond_with_res res req
+
+let management_global_fees_jsont = GlobalFees.jsont
+
+let management_global_fees req server _env =
+  let open Management in
+  let db_conn = Vif.Server.device Devices.db_connection server in
+  let res =
+    let* v = Vif.Request.of_json req |> unwrap_err_msg in
+    let* () = verify_global_fees v in
+    let* () = update_global_fees ~db_conn v in
+    Ok ""
+  in
+  respond_with_res res req