From 8af5cb0d3312c5fc6a7279a9ecfea136d292bfac Mon Sep 17 00:00:00 2001
From: silva guimaraes <silva__guimaraes@hotmail.com>
Date: Sat, 28 Jun 2025 17:28:04 -0300
Subject: [PATCH] fix matches of the following month being included in the
 schedules

---
 lib/lib.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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