This commit is contained in:
silva guimaraes 2025-06-28 17:20:12 -03:00
parent cd650991bc
commit 88456e17ca
3 changed files with 11 additions and 12 deletions

View file

@ -139,13 +139,14 @@ module Tournament = struct
t.start_timestamp |> float_of_int |> Unix.gmtime
in
sprintf "%02d:%02d/%02d:%02d" ts1.tm_hour ts1.tm_min
(mmod (ts2.tm_hour + off) 24) ts2.tm_min)
(mmod (ts2.tm_hour + off) 24)
ts2.tm_min)
in
sprintf "%s | %s x %s" timestamp x.home_team.name x.away_team.name)
|> String.concat "\n"
in
if m = "" then ""
else
if m = "" then ""
else
match tournament.context.timezone_offset with
| None -> sprintf ">%s\n%s" tournament.context.name m
| Some off -> sprintf ">%s (UTC%d)\n%s" tournament.context.name off m
@ -153,6 +154,7 @@ end
let ( let* ) = Lwt.bind
(* TODO: handle "resolution fai led: name resolution failed" *)
let get url : string =
let http_get url =
Printf.printf "\r%-90s" url;
@ -191,11 +193,7 @@ let matches_of_api_events (e : api_events) =
injuryTime2 = y;
currentPeriodStartTimestamp = _;
} ->
SecondHalf
{
injury_time1 = x;
injury_time2 = y;
}
SecondHalf { injury_time1 = x; injury_time2 = y }
| {
injuryTime1 = None;
injuryTime2 = Some y;