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

Browse source
This commit is contained in:
swrup 2026-02-23 09:17:13 +01:00
parent abd28920c9
commit fdebaf9945
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/http_info.ml
View file

@ -58,6 +58,7 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
let wallet_balance_limit_without_kyc = None in let wallet_balance_limit_without_kyc = None in
let hard_limits = [] in let hard_limits = [] in
let zero_limits = [] in let zero_limits = [] in
let* denom_l = Keys.denominations () in let* denom_l = Keys.denominations () in
let denom_l = let denom_l =
(* reverse chronological order *) (* reverse chronological order *)
@ -93,9 +94,9 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
in in
let* denominations = Denomination.make_denom_group denom_l in let* denominations = Denomination.make_denom_group denom_l in
let* signkeys = let* signkeys = Keys.signkeys () in
let+ l = Keys.signkeys () in let signkeys =
l signkeys
|> List.sort (fun a b -> |> List.sort (fun a b ->
let open Signkey in let open Signkey in
Stdlib.compare b.stamp_start a.stamp_start) Stdlib.compare b.stamp_start a.stamp_start)