readability

This commit is contained in:
Mylloon 2023-05-15 14:56:41 +02:00
parent 3c2a60e1a5
commit 5575d2c2c5
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -127,8 +127,9 @@ let find_latest_tweet ctx =
Core.Time.of_string_with_utc_offset
(get_attribute ctx.session_id date "datetime")
in
Core.Time.to_span_since_epoch time |> Core.Time.Span.to_sec |> Float.to_int)
Float.to_int (Core.Time.Span.to_sec (Core.Time.to_span_since_epoch time)))
dates
in
(* Returns the most recent date *)
Some (List.fold_left max min_int datetimes)
;;