From 412a95613c5597e9fa95e16f10451cc7abd3ca13 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Mon, 23 Feb 2026 07:24:40 +0100
Subject: [PATCH] use Int64.of_string_opt

---
 src/http_info.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/http_info.ml b/src/http_info.ml
index 2e4287ec..57d052f4 100644
--- a/src/http_info.ml
+++ b/src/http_info.ml
@@ -234,12 +234,12 @@ let keys req server _env =
     let* last_issue_date =
       match Vif.Queries.get req "last_issue_date" with
       | [] -> Ok None
-      | v :: _ -> (
-          match int_of_string_opt v with
+      | s :: _ -> (
+          match Int64.of_string_opt s with
           | None ->
               Error
                 "invalid `?last_issue_date` query param, int_of_string failure"
-          | Some n -> Ok (Some (Time.Timestamp.of_s (Int64.of_int n))))
+          | Some n -> Ok (Some (Timestamp.of_s n)))
     in
     let* v = mk_keys ~db_conn keys ~last_issue_date in
     let s = Api.encode_exn jsont v in