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