From fdebaf99458243f03f688e51a77e7d34adbe9a8c Mon Sep 17 00:00:00 2001 From: swrup Date: Mon, 23 Feb 2026 09:17:13 +0100 Subject: [PATCH] --- src/http_info.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/http_info.ml b/src/http_info.ml index 9ddce7a5..96d39db7 100644 --- a/src/http_info.ml +++ b/src/http_info.ml @@ -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 hard_limits = [] in let zero_limits = [] in + let* denom_l = Keys.denominations () in let denom_l = (* reverse chronological order *) @@ -93,9 +94,9 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date = in let* denominations = Denomination.make_denom_group denom_l in - let* signkeys = - let+ l = Keys.signkeys () in - l + let* signkeys = Keys.signkeys () in + let signkeys = + signkeys |> List.sort (fun a b -> let open Signkey in Stdlib.compare b.stamp_start a.stamp_start)