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-23 07:24:40 +01:00 • committed by Swrup
parent 8708143f16
commit 481adaf53e
7 changed files with 72 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/pg.ml
View file

@ -37,7 +37,7 @@ let preflight =
let find_signkey =
let req =
Caqti_type.(eddsa_pub ->? signkey_data)
Caqti_type.(eddsa_pub ->? signkey)
"SELECT exchange_pub, valid_from, expire_sign, expire_legal, master_sig \
FROM exchange_sign_keys WHERE exchange_pub=$1"
in
@ -46,7 +46,7 @@ let find_signkey =
let get_active_signkeys =
let req =
Caqti_type.(time ->* signkey_data)
Caqti_type.(time ->* signkey)
"SELECT esk.exchange_pub, esk.valid_from, esk.expire_sign, \
esk.expire_legal, esk.master_sig FROM exchange_sign_keys esk WHERE \
expire_sign > $1 AND NOT EXISTS (SELECT esk_serial FROM \
@ -56,7 +56,7 @@ let get_active_signkeys =
let insert_signkey =
let req =
Caqti_type.(signkey_data ->. unit)
Caqti_type.(signkey ->. unit)
"INSERT INTO exchange_sign_keys (exchange_pub, valid_from, expire_sign, \
expire_legal, master_sig) VALUES ($1, $2, $3, $4, $5)"
in
@ -64,7 +64,7 @@ let insert_signkey =
let find_denom =
let req =
Caqti_type.(denom_hash ->? denom_data)
Caqti_type.(denom_hash ->? denom)
"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, master_sig \
@ -74,7 +74,7 @@ let find_denom =
let get_denominations =
let req =
Caqti_type.(unit ->* denom_data)
Caqti_type.(unit ->* denom)
"SELECT dn.denom_pub, (dn.coin).*, dn.valid_from, dn.expire_withdraw, \
dn.expire_deposit, dn.expire_legal, (dn.fee_withdraw).*, \
(dn.fee_deposit).*, (dn.fee_refresh).*, (dn.fee_refund).*, dn.age_mask, \
@ -87,7 +87,7 @@ let get_denominations =
(* note: does not update revocation *)
let insert_denom =
let req =
Caqti_type.(denom_data ->. unit)
Caqti_type.(denom ->. unit)
"INSERT INTO denominations (denom_pub, coin, valid_from, \
expire_withdraw, expire_deposit, expire_legal, fee_withdraw, \
fee_deposit, fee_refresh, fee_refund, age_mask, denom_pub_hash, \