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 Core.Time.of_string_with_utc_offset
(get_attribute ctx.session_id date "datetime") (get_attribute ctx.session_id date "datetime")
in 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 dates
in in
(* Returns the most recent date *)
Some (List.fold_left max min_int datetimes) Some (List.fold_left max min_int datetimes)
;; ;;