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

denom query quickfix: set revoke sig to none

Browse source
This commit is contained in:
swrup 2026-01-24 01:20:38 +01:00
parent 8a05d74172
commit ee25ba06df
1 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/pg.ml
View file

@ -73,15 +73,14 @@ let insert_signkey =
in
fun (module Conn : CONN) v -> Conn.exec insert_signkey v
(* TODO revokation master_sig *)
let find_denom =
let find_denom =
Caqti_type.(denomination_hash ->? denom_data)
"SELECT denom_pub, (coin).*, valid_from, expire_withdraw, \
expire_deposit, expire_legal, (fee_withdraw).*, (fee_deposit).*, \
(fee_refresh).*, (fee_refund).*, age_mask, denom_pub_hash, \
denominations.master_sig, denomination_revocations.master_sig FROM \
denominations WHERE denom_pub_hash=$1 LEFT JOIN \
denomination_revocations USING (denominations_serial)"
(fee_refresh).*, (fee_refund).*, age_mask, denom_pub_hash, master_sig, \
NULL FROM denominations WHERE denom_pub_hash=$1"
in
fun (module Conn : CONN) h_denom_pub -> Conn.find_opt find_denom h_denom_pub
@ -90,10 +89,8 @@ let get_denominations =
Caqti_type.(unit ->* denom_data)
"SELECT denom_pub, (coin).*, valid_from, expire_withdraw, \
expire_deposit, expire_legal, (fee_withdraw).*, (fee_deposit).*, \
(fee_refresh).*, (fee_refund).*, age_mask, denom_pub_hash, \
denominations.master_sig, denomination_revocations.master_sig FROM \
denominations LEFT JOIN denomination_revocations USING \
(denominations_serial)"
(fee_refresh).*, (fee_refund).*, age_mask, denom_pub_hash, master_sig, \
NULL FROM denominations"
in
fun (module Conn : CONN) -> Conn.collect_list get_denominations ()