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)