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

Browse source
This commit is contained in:
swrup 2025-11-23 15:56:26 +01:00
parent ecf1ee5aba
commit 4e98c533c5
1 changed files with 23 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

49
src/pg.ml
View file

@ -95,11 +95,9 @@ let activate_signing_key =
"INSERT INTO exchange_sign_keys (exchange_pub, valid_from, expire_sign, \
expire_legal, master_sig) VALUES ($1, $2, $3, $4, $5)"
in
fun (module Conn : CONN) exchange_signkey ->
let Signkey.
{ pub; stamp_start; stamp_expire; stamp_end; master_sig; sign= _ } =
exchange_signkey
in
fun (module Conn : CONN)
Signkey.{ pub; stamp_start; stamp_expire; stamp_end; master_sig; sign= _ }
->
(* TODO master_sig *)
let master_sig = master_sig |> Option.get in
Conn.exec insert_signkey
@ -129,27 +127,26 @@ let add_denomination_key =
fee_withdraw, fee_deposit, fee_refresh, fee_refund, age_mask) VALUES \
($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12, $13)"
in
fun (module Conn : CONN) denom ->
let Denomination.
{
pub;
section_name= _;
value;
stamp_start;
stamp_expire_withdraw;
stamp_expire_deposit;
stamp_expire_legal;
fee_withdraw;
fee_deposit;
fee_refresh;
fee_refund;
age_mask;
h_pub;
sign= _;
master_sig;
} =
denom
in
fun (module Conn : CONN)
Denomination.
{
pub;
section_name= _;
value;
stamp_start;
stamp_expire_withdraw;
stamp_expire_deposit;
stamp_expire_legal;
fee_withdraw;
fee_deposit;
fee_refresh;
fee_refund;
age_mask;
h_pub;
sign= _;
master_sig;
}
->
(* TODO master_sig *)
let master_sig = master_sig |> Option.get in
Conn.exec denomination_insert