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

handle global_fees; add do_management.sh

Browse source
This commit is contained in:
swrup 2026-02-03 15:56:05 +01:00
parent 4754517d8f
commit 773b1b0d68
11 changed files with 207 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/pg.ml
View file

@ -12,6 +12,8 @@
transaction
should check validity of signatures got from db, for /management at least *)
(* TODO time
fix comparison with timestamp footgun *)
module type CONN = Caqti_miou.CONNECTION
@ -303,15 +305,15 @@ let get_global_fees_by_time =
fun (module Conn : CONN) ~start_date ~end_date ->
Conn.collect_list get_global_fees_by_time (start_date, end_date)
let insert_global_fee =
let insert_global_fee =
let insert_global_fees =
let insert_global_fees =
Caqti_type.(global_fee ->. unit)
"INSERT INTO global_fee (start_date, end_date, history_fee, account_fee, \
purse_fee, history_expiration, purse_account_limit, purse_timeout, \
master_sig) VALUES ($1, $2, ($3,$4), ($5,$6), ($7,$8), $9, $10, $11, \
$12)"
in
fun (module Conn : CONN) v -> Conn.exec insert_global_fee v
fun (module Conn : CONN) v -> Conn.exec insert_global_fees v
let get_wire_timestamp =
let get_wire_timestamp =