+
This commit is contained in:
parent
638cccc185
commit
26f5e392ee
6 changed files with 195 additions and 49 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue