src/http_keys.ml

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

src/pg.ml

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