diff --git a/src/Handler/School/DayTasks.hs b/src/Handler/School/DayTasks.hs
index ae3ad0dc4..3bec3d289 100644
--- a/src/Handler/School/DayTasks.hs
+++ b/src/Handler/School/DayTasks.hs
@@ -71,9 +71,9 @@ data OccurrenceCacheKey = OccurrenceCacheKeyTutorials SchoolId (Day,Day)
   deriving anyclass (Hashable, Binary)
 
 getDayTutorials :: SchoolId -> (Day,Day) -> DB [TutorialId]
-getDayTutorials ssh _dlimit@(dstart, dend )
+getDayTutorials ssh dlimit@(dstart, dend )
   | dstart > dend = return mempty
-  | otherwise = memcachedByClass MemcachedKeyClassTutorialOccurrences (Just . Right $ 9 * diffDay) (OccurrenceCacheKeyTutorials ssh dlimit) $
+  | otherwise = memcachedByClass MemcachedKeyClassTutorialOccurrences (Just . Right $ 9 * diffDay) (OccurrenceCacheKeyTutorials ssh dlimit) $ do
     candidates <- E.select $ do
       (trm :& crs :& tut) <- E.from $ E.table @Term
           `E.innerJoin` E.table @Course   `E.on` (\(trm :& crs)      -> crs E.^. CourseTerm E.==. trm E.^. TermId)
@@ -82,7 +82,7 @@ getDayTutorials ssh _dlimit@(dstart, dend )
           E.&&.  trm E.^. TermStart    E.<=. E.val dend
           E.&&.  trm E.^. TermEnd      E.>=. E.val dstart
       return (trm, tut, E.just (tut E.^. TutorialTime) @>. E.jsonbVal (occurrenceDayValue dstart))
-    $logErrorS "DAILY" $ foldMap (\(Entity{entityVal=someTerm},Entity{entityVal=Tutorial{..}},_) -> tshow someTerm <> " *** " <> ciOriginal tutorialName <> ": " <> tshow (unJSONB tutorialTime)) candidates
+    -- logErrorS "DAILY" $ foldMap (\(Entity{entityVal=someTerm},Entity{entityVal=Tutorial{..}},_) -> tshow someTerm <> " *** " <> ciOriginal tutorialName <> ": " <> tshow (unJSONB tutorialTime)) candidates
     return $ mapMaybe checkCandidate candidates
   where
     period = Set.fromAscList [dstart..dend]