swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip wire_fee caqti

Browse source
This commit is contained in:
swrup 2025-12-16 18:02:13 +01:00
parent 4f69ac56d2
commit 90ec2423df
3 changed files with 46 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/http_management.ml
View file

@ -380,30 +380,17 @@ module Wire_fee = struct
closing_fee;
}
let do_ ~db_conn
WireFeeSetupMessage.
{
wire_method;
master_sig_wire;
fee_start;
fee_end;
closing_fee;
wire_fee;
} =
let* wire_fee_opt =
Pg.lookup_wire_fee_by_time db_conn ~wire_method ~start_date:fee_start
~end_date:fee_end
let do_ ~db_conn (v : WireFeeSetupMessage.t) =
let* wire_fees =
Pg.get_wire_fees_by_time db_conn ~wire_method:v.wire_method
~start_date:v.fee_start ~end_date:v.fee_end
|> unwrap_err_caqti
in
match wire_fee_opt with
| Some (_wire_fee, _closing_fee) -> Error "wire-fee already setup"
| None ->
let+ () =
Pg.insert_wire_fee db_conn ~wire_method ~start_date:fee_start
~end_date:fee_end ~wire_fee ~closing_fee ~master_sig:master_sig_wire
|> unwrap_err_caqti
in
match wire_fees with
| [] ->
let+ () = Pg.insert_wire_fee db_conn v |> unwrap_err_caqti in
()
| _l -> Error "wire-fee already setup"
let jsont = WireFeeSetupMessage.jsont