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-07 16:39:12 +01:00
parent 32fa5b1fc3
commit 5bb43ef10f
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/pg.ml
View file

@ -107,10 +107,8 @@ let lookup_denomination_key =
denomination_hash denomination_hash
->? t10 time time time time amount amount amount amount amount age_mask) ->? t10 time time time time amount amount amount amount amount age_mask)
"SELECT valid_from, expire_withdraw, expire_deposit, expire_legal, \ "SELECT valid_from, expire_withdraw, expire_deposit, expire_legal, \
(coin).val, (coin).frac, (fee_withdraw).val, (fee_withdraw).frac, \ (coin).*, (fee_withdraw).*, (fee_deposit).*, (fee_refresh).*, \
(fee_deposit).val, (fee_deposit).frac, (fee_refresh).val, \ (fee_refund).*, age_mask FROM denominations WHERE denom_pub_hash=$1"
(fee_refresh).frac, (fee_refund).val, (fee_refund).frac, age_mask FROM \
denominations WHERE denom_pub_hash=$1"
in in
fun (module Conn : CONN) (h_denom_pub : DenominationHash.t) -> fun (module Conn : CONN) (h_denom_pub : DenominationHash.t) ->
Conn.find_opt lookup_denomination_key h_denom_pub Conn.find_opt lookup_denomination_key h_denom_pub