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

Browse source
This commit is contained in:
swrup 2026-02-03 13:42:30 +01:00
parent c2fff0ff78
commit 3ef3b82653
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/pg.ml
View file

@ -83,14 +83,15 @@ let find_denom =
in in
fun (module Conn : CONN) h_denom_pub -> Conn.find_opt find_denom h_denom_pub fun (module Conn : CONN) h_denom_pub -> Conn.find_opt find_denom h_denom_pub
(* TODO revocation master_sig *)
let get_denominations = let get_denominations =
let get_denominations = let get_denominations =
Caqti_type.(unit ->* denom_data) Caqti_type.(unit ->* denom_data)
"SELECT denom_pub, (coin).*, valid_from, expire_withdraw, \ "SELECT dn.denom_pub, (dn.coin).*, dn.valid_from, dn.expire_withdraw, \
expire_deposit, expire_legal, (fee_withdraw).*, (fee_deposit).*, \ dn.expire_deposit, dn.expire_legal, (dn.fee_withdraw).*, \
(fee_refresh).*, (fee_refund).*, age_mask, denom_pub_hash, master_sig, \ (dn.fee_deposit).*, (dn.fee_refresh).*, (dn.fee_refund).*, dn.age_mask, \
NULL FROM denominations" dn.denom_pub_hash, dn.master_sig, dnr.master_sig FROM denominations AS \
dn LEFT JOIN denomination_revocations AS dnr ON dn.denominations_serial \
= dnr.denominations_serial"
in in
fun (module Conn : CONN) -> Conn.collect_list get_denominations () fun (module Conn : CONN) -> Conn.collect_list get_denominations ()