From 2428e5ec72a033080223d1035ea6a99c8305e628 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Tue, 25 Aug 2020 12:47:40 +0200
Subject: [PATCH] fix(schedule-week): fix allTimeSlots

---
 src/Utils/Schedule/Week.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Utils/Schedule/Week.hs b/src/Utils/Schedule/Week.hs
index e4a879165..20fc77dda 100644
--- a/src/Utils/Schedule/Week.hs
+++ b/src/Utils/Schedule/Week.hs
@@ -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