From 77fb7b5dc662f85667e8f54ffe014b579fb75ad5 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Fri, 26 Jan 2024 15:31:36 +0100
Subject: [PATCH] follow deprecation notice

---
 bin/twitter.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/twitter.ml b/bin/twitter.ml
index 9ad4faa..fa6e36e 100644
--- a/bin/twitter.ml
+++ b/bin/twitter.ml
@@ -131,10 +131,11 @@ let find_latest_tweet ctx =
       List.map
         (fun date ->
           let time =
-            Core.Time.of_string_with_utc_offset
+            Core.Time_float.of_string_with_utc_offset
               (get_attribute ctx.session_id date "datetime")
           in
-          Float.to_int (Core.Time.Span.to_sec (Core.Time.to_span_since_epoch time)))
+          Float.to_int
+            (Core.Time_float.Span.to_sec (Core.Time_float.to_span_since_epoch time)))
         dates
     in
     (* Returns the most recent date *)