fix timestamp compare

2026-02-27 22:44:49 +01:00 · 2026-02-27 22:44:49 +01:00 · 9c87aa63ea
commit 9c87aa63ea
parent 26f01efec0
6 changed files with 15 additions and 22 deletions
--- a/src/http_info.ml
+++ b/src/http_info.ml
@ -83,7 +83,7 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
    | None -> denom_l
    | Some timestamp ->
        List.filter
-          (fun v -> Timestamp.geq v.Denomination.stamp_start timestamp)
+          (fun v -> Timestamp.compare timestamp v.Denomination.stamp_start <= 0)
          denom_l
  in
  let* denominations = Denomination.make_denom_group_sorted denom_l in