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

+ global_fees

Browse source
This commit is contained in:
swrup 2026-02-03 14:11:10 +01:00
parent 28872cb239
commit 0e4dff6594
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/http_keys.ml
View file

@ -191,7 +191,10 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
in in
let recoup = (* todo /recoup *) [] in let recoup = (* todo /recoup *) [] in
let global_fees = (* TODO *) [] in let* global_fees =
(* todo take start_date = now? *)
Pg.get_global_fees db_conn ~start_date:None |> unwrap_err_caqti
in
let auditors = (* TODO *) [] in let auditors = (* TODO *) [] in
let extensions = None in let extensions = None in
let extensions_sig = None in let extensions_sig = None in

2
src/pg.ml
View file

@ -298,7 +298,7 @@ let get_global_fees_by_time =
Caqti_type.(t2 time time ->* global_fee) Caqti_type.(t2 time time ->* global_fee)
"SELECT start_date, end_date, (history_fee).*, (account_fee).*, \ "SELECT start_date, end_date, (history_fee).*, (account_fee).*, \
(purse_fee).*, history_expiration, purse_account_limit, purse_timeout, \ (purse_fee).*, history_expiration, purse_account_limit, purse_timeout, \
master_sig FROM global_fee WHERE end_date > $1 AND start_date < $2" master_sig FROM global_fee WHERE start_date >= $1 AND end_date <= $2"
in in
fun (module Conn : CONN) ~start_date ~end_date -> fun (module Conn : CONN) ~start_date ~end_date ->
Conn.collect_list get_global_fees_by_time (start_date, end_date) Conn.collect_list get_global_fees_by_time (start_date, end_date)