fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix(schedule-week): fix exam occurrence in slot check

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-21 13:11:15 +02:00
parent 75bf13ae16
commit 0aae46a0b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Utils/Schedule/Week.hs
View File

@ -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