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

chore: remove redundant seq

Browse Source
This commit is contained in:
Wolfgang Witt 2021-02-26 17:46:19 +01:00 committed by Wolfgang Witt
parent 6dedb2b2a0
commit 72d42baec5
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

@ -562,7 +562,7 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
-> ( Map ExamOccurrenceId (Set ExamOccurrenceMappingDescription)
, Map UserId (Maybe ExamOccurrenceId)
)
postprocess result = seq resultAscList (resultAscList, resultUsers)
postprocess result = (resultAscList, resultUsers)
where
maxTagLength :: Int
maxTagLength = maybe 0 maximum $ fromNullable $ concatMap (map length . snd) result