fix matches of the following month being included in the schedules

This commit is contained in:
silva guimaraes 2025-06-28 17:28:04 -03:00
parent 88456e17ca
commit 8af5cb0d33

View file

@ -121,7 +121,7 @@ module Tournament = struct
| Completed t -> t.start_timestamp | Completed t -> t.start_timestamp
in in
let t = ts |> float_of_int |> Unix.localtime in let t = ts |> float_of_int |> Unix.localtime in
t.tm_mday = day.tm_mday) t.tm_mday = day.tm_mday && t.tm_mon = day.tm_mon)
|> List.map (fun x -> |> List.map (fun x ->
let timestamp = let timestamp =
match x.status with match x.status with