diff --git a/src/pg.ml b/src/pg.ml index 672cfe47..c57bc8e2 100644 --- a/src/pg.ml +++ b/src/pg.ml @@ -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 *)