diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs index 863cc98ac..150416cd7 100644 --- a/src/Handler/Utils/Exam.hs +++ b/src/Handler/Utils/Exam.hs @@ -278,11 +278,11 @@ examAutoOccurrence :: forall seed. -> Map UserId (User, Maybe ExamOccurrenceId) -> Either ExamAutoOccurrenceException (ExamOccurrenceMapping ExamOccurrenceId, Map UserId (Maybe ExamOccurrenceId)) examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences users + | Map.null users' + = Left ExamAutoOccurrenceExceptionNoUsers | sum occurrences' < usersCount || sum occurrences' <= 0 = Left ExamAutoOccurrenceExceptionNotEnoughSpace - | Map.null users' - = Left ExamAutoOccurrenceExceptionNoUsers | otherwise = case rule of ExamRoomRandom