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

fix: correctly calculate maximum user name length

Browse Source
This commit is contained in:
Wolfgang Witt 2021-02-25 23:26:33 +01:00 committed by Wolfgang Witt
parent bc42f3072f
commit cd07a56a9f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -565,7 +565,7 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
postprocess result = seq resultAscList (resultAscList, resultUsers) postprocess result = seq resultAscList (resultAscList, resultUsers)
where where
maxTagLength :: Int maxTagLength :: Int
maxTagLength = maybe 0 maximum $ fromNullable $ map (length . snd) result maxTagLength = maybe 0 maximum $ fromNullable $ concatMap (map length . snd) result
rangeAlphabet :: [CI Char] rangeAlphabet :: [CI Char]
rangeAlphabet = case rule of rangeAlphabet = case rule of