From 0aae46a0b9da713f96503b49790ea41d056298ca Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Fri, 21 Aug 2020 13:11:15 +0200
Subject: [PATCH] fix(schedule-week): fix exam occurrence in slot check

---
 src/Utils/Schedule/Week.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Utils/Schedule/Week.hs b/src/Utils/Schedule/Week.hs
index 9dddbf2dd..afa95b11d 100644
--- a/src/Utils/Schedule/Week.hs
+++ b/src/Utils/Schedule/Week.hs
@@ -139,11 +139,11 @@ weekSchedule uid _weekOffset = do
                                               && TimeOfDay slot 0 0 <= localTimeOfDay
                                               && localTimeOfDay < TimeOfDay (slot+slotStep) 0 0
       Left ScheduleEntryExamOccurrence{..} -> let slotUTCTime     = UTCTime
-                                                                    { utctDay     = utctDay seeoStart
+                                                                    { utctDay     = day
                                                                     , utctDayTime = timeOfDayToTime (TimeOfDay slot 0 0)
                                                                     }
                                                   nextSlotUTCTime = UTCTime
-                                                                    { utctDay     = utctDay seeoStart
+                                                                    { utctDay     = day
                                                                     , utctDayTime = timeOfDayToTime (TimeOfDay (slot+slotStep) 0 0)
                                                                     }
                                               in slotUTCTime <= seeoStart