fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: check for no users first

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-01 17:25:50 +01:00 committed by Wolfgang Witt
parent 5dc37a07c1
commit 767090ded1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Utils/Exam.hs
View File

@ -278,11 +278,11 @@ examAutoOccurrence :: forall seed.
-> Map UserId (User, Maybe ExamOccurrenceId) -> Map UserId (User, Maybe ExamOccurrenceId)
-> Either ExamAutoOccurrenceException (ExamOccurrenceMapping ExamOccurrenceId, Map UserId (Maybe ExamOccurrenceId)) -> Either ExamAutoOccurrenceException (ExamOccurrenceMapping ExamOccurrenceId, Map UserId (Maybe ExamOccurrenceId))
examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences users examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences users
| Map.null users'
= Left ExamAutoOccurrenceExceptionNoUsers
| sum occurrences' < usersCount | sum occurrences' < usersCount
|| sum occurrences' <= 0 || sum occurrences' <= 0
= Left ExamAutoOccurrenceExceptionNotEnoughSpace = Left ExamAutoOccurrenceExceptionNotEnoughSpace
| Map.null users'
= Left ExamAutoOccurrenceExceptionNoUsers
| otherwise | otherwise
= case rule of = case rule of
ExamRoomRandom ExamRoomRandom