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-21 21:34:42 +01:00
parent c5cb16615e
commit 4d1256f195
1 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/pg.ml
View file

@ -185,6 +185,25 @@ let insert_auditor_denom_sig =
fun (module Conn : CONN) ~auditor_pub ~h_denom_pub ~auditor_sig ->
Conn.exec insert_auditor_denom_sig (auditor_pub, h_denom_pub, auditor_sig)
let get_auditors =
let get_auditors =
Caqti_type.(unit ->* t3 eddsa_pub string string)
"SELECT auditor_pub, auditor_url, auditor_name FROM auditors WHERE \
is_active"
in
fun (module Conn : CONN) () -> Conn.collect_list get_auditors ()
let get_auditor_denoms =
let get_auditor_denoms =
let auditor_sig = Bin_sig.ExchangeKeyValidity.caqti in
Caqti_type.(unit ->* t3 eddsa_pub denomination_hash auditor_sig)
"SELECT auditors.auditor_pub, denominations.denom_pub_hash, \
auditor_denom_sigs.auditor_sig FROM auditor_denom_sigs JOIN auditors \
USING (auditor_uuid) JOIN denominations USING (denominations_serial) \
WHERE auditors.is_active"
in
fun (module Conn : CONN) () -> Conn.collect_list get_auditor_denoms ()
let insert_wire_fee =
let insert_wire_fee =
let master_sig = Bin_sig.MasterWireFee.caqti in
@ -332,7 +351,5 @@ let insert_partner =
fun (module Conn : CONN) v -> Conn.exec insert_partner v
(* TODO
iterate_active_auditors
iterate_auditor_denominations
get_recoup_denoms
*)