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 allTimeSlots

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-25 12:47:40 +02:00
parent 3be331f043
commit 2428e5ec72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -122,7 +122,7 @@ weekSchedule uid dayOffset = do
timeSlotsDefaultDisplay = Set.fromList $ timeSlot <$> [8,10..18]
allTimeSlots :: [TimeSlot]
allTimeSlots = timeSlot <$> [0,2..24]
allTimeSlots = timeSlot <$> [0,2..22]
timeSlotIsEmpty :: TimeSlot -> Bool
timeSlotIsEmpty slot = foldr (\day acc -> acc && maybe True null (day Map.!? slot)) True events