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

Browse source
This commit is contained in:
swrup 2025-12-11 09:54:40 +01:00
parent 625c194fff
commit 85ef0d05bf
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/pg.ml
View file

@ -13,6 +13,7 @@ module type CONN = Caqti_miou.CONNECTION
open Crypto open Crypto
open Bin_type open Bin_type
open Api
module Caqti_type = struct module Caqti_type = struct
include Caqti_type include Caqti_type
@ -205,7 +206,7 @@ let insert_auditor =
is_active, last_change) VALUES ($1, $2, $3, true, $4)" is_active, last_change) VALUES ($1, $2, $3, true, $4)"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.AuditorSetupMessage. AuditorSetupMessage.
{ auditor_url; auditor_name; auditor_pub; master_sig= _; validity_start } { auditor_url; auditor_name; auditor_pub; master_sig= _; validity_start }
-> ->
Conn.exec insert_auditor Conn.exec insert_auditor
@ -218,7 +219,7 @@ let update_auditor =
last_change=$5 WHERE auditor_pub=$1" last_change=$5 WHERE auditor_pub=$1"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.AuditorSetupMessage. AuditorSetupMessage.
{ auditor_url; auditor_name; auditor_pub; master_sig= _; validity_start } { auditor_url; auditor_name; auditor_pub; master_sig= _; validity_start }
-> ->
Conn.exec update_auditor Conn.exec update_auditor
@ -285,7 +286,7 @@ let insert_global_fee =
$12)" $12)"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.GlobalFees. GlobalFees.
{ {
start_date; start_date;
end_date; end_date;
@ -330,7 +331,7 @@ let insert_wire =
($1,$2,$3::TEXT::JSONB,$4::TEXT::JSONB,$5,true,$6,$7,$8)" ($1,$2,$3::TEXT::JSONB,$4::TEXT::JSONB,$5,true,$6,$7,$8)"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.WireSetupMessage. WireSetupMessage.
{ {
payto_uri; payto_uri;
master_sig_wire; master_sig_wire;
@ -368,7 +369,7 @@ let update_wire =
bank_label=$8, priority=$9 WHERE payto_uri=$1" bank_label=$8, priority=$9 WHERE payto_uri=$1"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.WireSetupMessage. WireSetupMessage.
{ {
payto_uri; payto_uri;
master_sig_wire; master_sig_wire;
@ -417,7 +418,7 @@ let insert_drain_profit =
trigger_date, amount, master_sig) VALUES ($1, $2, $3, $4, ($5,$6), $7)" trigger_date, amount, master_sig) VALUES ($1, $2, $3, $4, ($5,$6), $7)"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.DrainProfitsMessage. DrainProfitsMessage.
{ {
debit_account_section; debit_account_section;
credit_payto_uri; credit_payto_uri;
@ -438,7 +439,7 @@ let insert_aml_officer =
$4, $5, $6)" $4, $5, $6)"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.AmlOfficerSetup. AmlOfficerSetup.
{ {
officer_pub; officer_pub;
officer_name; officer_name;
@ -461,7 +462,7 @@ let insert_partner =
$3, $4, ($5,$6), $7, $8) ON CONFLICT DO NOTHING" $3, $4, ($5,$6), $7, $8) ON CONFLICT DO NOTHING"
in in
fun (module Conn : CONN) fun (module Conn : CONN)
Api.ExchangePartnerSetupRequest. ExchangePartnerSetupRequest.
{ {
partner_base_url; partner_base_url;
partner_pub; partner_pub;