diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs index 872d63c35..cfb4124c2 100644 --- a/src/Handler/Utils/Exam.hs +++ b/src/Handler/Utils/Exam.hs @@ -269,7 +269,7 @@ examAutoOccurrence :: forall seed. examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences users | sum occurrences' < usersCount || sum occurrences' <= 0 - || Map.null users + || Map.null users' = nullResult | otherwise = case rule of