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-03 16:52:11 +01:00
parent 4913d8ca76
commit c0ef1aede1
8 changed files with 47 additions and 16 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 =