diff --git a/src/pg.ml b/src/pg.ml index feda504c..2f2d5632 100644 --- a/src/pg.ml +++ b/src/pg.ml @@ -15,6 +15,7 @@ module Caqti_type = struct custom ~encode:(fun amount -> Ok (amount.value, amount.fraction)) ~decode:(fun (value, fraction) -> + Fmt.epr "amount decode {value = %Ld; fract = %ld}" value fraction; Amount.make ~sign:None ~currency:Config.currency ~value ~fraction) (t2 int64 int32) @@ -110,9 +111,11 @@ let lookup_denomination_key = Caqti_type.( denomination_hash ->? t10 time time time time amount amount amount amount amount age_mask) - "SELECT valid_from, expire_withdraw, expire_deposit, expire_legal, coin, \ - fee_withdraw, fee_deposit, fee_refresh, fee_refund, age_mask FROM \ - denominations WHERE denom_pub_hash=$1" + "SELECT valid_from, expire_withdraw, expire_deposit, expire_legal, \ + coin::taler_amount, fee_withdraw::taler_amount, \ + fee_deposit::taler_amount, fee_refresh::taler_amount, \ + fee_refund::taler_amount, age_mask FROM denominations WHERE \ + denom_pub_hash=$1" in fun (module Conn : CONN) (h_denom_pub : DenominationHash.t) -> Conn.find_opt lookup_denomination_key h_denom_pub