diff --git a/lib/lib.ml b/lib/lib.ml index a3d8819..b2b40e0 100644 --- a/lib/lib.ml +++ b/lib/lib.ml @@ -121,7 +121,7 @@ module Tournament = struct | Completed t -> t.start_timestamp 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 -> let timestamp = match x.status with