follow deprecation notice

This commit is contained in:
Mylloon 2024-01-26 15:31:36 +01:00
parent c4af201d10
commit 77fb7b5dc6
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -131,10 +131,11 @@ let find_latest_tweet ctx =
List.map List.map
(fun date -> (fun date ->
let time = let time =
Core.Time.of_string_with_utc_offset Core.Time_float.of_string_with_utc_offset
(get_attribute ctx.session_id date "datetime") (get_attribute ctx.session_id date "datetime")
in 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 dates
in in
(* Returns the most recent date *) (* Returns the most recent date *)