don't shadow existing variable

This commit is contained in:
Mylloon 2023-05-15 14:31:27 +02:00
parent 707e8f999a
commit 3c2a60e1a5
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -123,11 +123,11 @@ let find_latest_tweet ctx =
let datetimes =
List.map
(fun date ->
let date =
let time =
Core.Time.of_string_with_utc_offset
(get_attribute ctx.session_id date "datetime")
in
Core.Time.to_span_since_epoch date |> Core.Time.Span.to_sec |> Float.to_int)
Core.Time.to_span_since_epoch time |> Core.Time.Span.to_sec |> Float.to_int)
dates
in
Some (List.fold_left max min_int datetimes)