This commit is contained in:
swrup 2025-12-14 23:34:25 +01:00
parent 638cccc185
commit 26f5e392ee
6 changed files with 195 additions and 49 deletions

View file

@ -561,7 +561,21 @@ module Wire = struct
match last_change_opt with
| Some _ -> Error "wire already setup"
| None ->
let+ () = Pg.insert_wire db_conn v |> unwrap_err_caqti in
(* TODO wire *)
let last_change = Ptime_clock.now () |> Option.some in
let v =
ExchangeWireAccount.
{
payto_uri= v.payto_uri;
conversion_url= None;
debit_restrictions= [];
credit_restrictions= [];
master_sig= v.master_sig_wire;
bank_label= v.bank_label;
priority= v.priority;
}
in
let+ () = Pg.insert_wire db_conn ~last_change v |> unwrap_err_caqti in
()
let jsont = WireSetupMessage.jsont