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 = let datetimes =
List.map List.map
(fun date -> (fun date ->
let date = let time =
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 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 dates
in in
Some (List.fold_left max min_int datetimes) Some (List.fold_left max min_int datetimes)