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

Browse source
This commit is contained in:
swrup 2026-01-22 02:55:51 +01:00
parent 008bb6b0fe
commit 4569a65c75
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/http_keys.ml
View file

@ -114,6 +114,8 @@ let mk_keys ~db_conn ~sm ~last_issue_date =
List.map denomgroup_of_denomdata denom_data_l List.map denomgroup_of_denomdata denom_data_l
in in
let* signkey_data_l = Pg.get_active_signkeys db_conn |> unwrap_err_caqti in
let exchange_pub = let exchange_pub =
(* the eddsa pub key used to sign exchange_sig *) (* the eddsa pub key used to sign exchange_sig *)
Obj.magic "" Obj.magic ""
@ -139,6 +141,11 @@ let mk_keys ~db_conn ~sm ~last_issue_date =
R.{ list_issue_date; hc } R.{ list_issue_date; hc }
in in
let recoup = [] in
let auditors = [] in
let extensions = None in
let extensions_sig = None in
(* (*
{ {
version; version;

2
src/pg.ml
View file

@ -61,7 +61,7 @@ let get_active_signkeys =
esk_serial FROM signkey_revocations skr WHERE esk.esk_serial = \ esk_serial FROM signkey_revocations skr WHERE esk.esk_serial = \
skr.esk_serial)" skr.esk_serial)"
in in
fun (module Conn : CONN) () -> fun (module Conn : CONN) ->
let now = Ptime_clock.now () |> Option.some in let now = Ptime_clock.now () |> Option.some in
Conn.collect_list get_active_signkeys now Conn.collect_list get_active_signkeys now