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

fix: check space of occurrences after ignoring

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-18 14:51:50 +01:00 committed by Gregor Kleen
parent 11664dcd82
commit fabf56c164
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,6 +45,7 @@ import qualified Data.Array as Array
import Data.Array.ST (STArray, STUArray) import Data.Array.ST (STArray, STUArray)
import qualified Data.Array.ST as ST import qualified Data.Array.ST as ST
import Data.Foldable (foldMap')
import Data.List (findIndex, unfoldr) import Data.List (findIndex, unfoldr)
import qualified Data.List as List import qualified Data.List as List
@ -392,7 +393,7 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
| otherwise -> Map.singleton [] $ Map.keysSet users | otherwise -> Map.singleton [] $ Map.keysSet users
occurrencesSize :: ExamOccurrenceCapacity occurrencesSize :: ExamOccurrenceCapacity
occurrencesSize = fold occurrences' occurrencesSize = foldMap' (view _2) occurrences''
occurrences' :: Map ExamOccurrenceId ExamOccurrenceCapacity occurrences' :: Map ExamOccurrenceId ExamOccurrenceCapacity
-- ^ reduce room capacity for every pre-assigned user by 1 -- ^ reduce room capacity for every pre-assigned user by 1