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:38:24 +01:00
parent ae6b7b5847
commit edfcfa472d
1 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/pg.ml
View file

@ -89,6 +89,23 @@ let _lookup_signing_key =
fun (module Conn : CONN) (exchange_pub : EddsaPublicKey.t) ->
Conn.find_opt lookup_signing_key exchange_pub
let activate_signing_key =
let insert_signkey =
Caqti_type.(t5 eddsa_public ptime ptime ptime eddsa_signature ->. unit)
"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
(*let master_sig = master_sig |> Option.get in*)
let master_sig = EddsaSignature.of_octets (String.make 64 'x') in
Conn.exec insert_signkey
(pub, stamp_start, stamp_expire, stamp_end, master_sig)
let _lookup_denomination_key =
let lookup_denomination_key =
Caqti_type.(
@ -149,23 +166,6 @@ let _add_denomination_key =
fee_refresh,
(fee_refund, age_mask) )
let activate_signing_key =
let insert_signkey =
Caqti_type.(t5 eddsa_public ptime ptime ptime eddsa_signature ->. unit)
"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
(*let master_sig = master_sig |> Option.get in*)
let master_sig = EddsaSignature.of_octets (String.make 64 'x') in
Conn.exec insert_signkey
(pub, stamp_start, stamp_expire, stamp_end, master_sig)
(* ----- *)
let pg_todo () = assert false