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

rename

Browse source
This commit is contained in:
swrup 2026-02-18 17:26:53 +01:00
parent 1e30753ba9
commit b719f9b9c7
7 changed files with 82 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/http_information.ml
View file

@ -59,7 +59,7 @@ let denomgroup_of_denomdata
RsaDenomGroup.
{ denoms; value; fee_withdraw; fee_deposit; fee_refresh; fee_refund }
let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
let version = Api.protocol_version in
let base_url = Config.base_url in
let currency = Config.currency in
@ -113,7 +113,7 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
let zero_limits = [] in
let dn_l =
(*Pg.get_denominations db_conn |> unwrap_err_caqti *)
Sm.get_denominations ()
Keys.get_denominations ()
|>
(* reverse chronological order *)
List.sort (fun a b ->
@ -151,7 +151,7 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
(*
let now = Ptime_clock.now () |> Option.some in
let+ signkey_data_l = Pg.get_active_signkeys db_conn ~now |> unwrap_err_caqti in*)
Sm.get_signkeys ()
Keys.get_signkeys ()
|> List.sort (fun a b ->
let open Signkey in
Stdlib.compare b.stamp_start a.stamp_start)
@ -176,7 +176,9 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
|> Hash.H64.hash
in
let open Signatures.ExchangeKeySet in
sign_f ~f:(Sm.sign_with_signkey ~pub:exchange_pub) R.{ list_issue_date; hc }
sign_f
~f:(Keys.sign_with_signkey ~pub:exchange_pub)
R.{ list_issue_date; hc }
in
let recoup = (* TODO /recoup *) [] in