readability
This commit is contained in:
parent
3c2a60e1a5
commit
5575d2c2c5
1 changed files with 2 additions and 1 deletions
|
@ -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)
|
||||||
;;
|
;;
|
||||||
|
|
Loading…
Reference in a new issue