don't shadow existing variable
This commit is contained in:
parent
707e8f999a
commit
3c2a60e1a5
1 changed files with 2 additions and 2 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue