fraport/fradrive-old
Archived
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 ExamOccurrenceId (Set ExamOccurrenceMappingDescription)
, Map UserId (Maybe ExamOccurrenceId) , Map UserId (Maybe ExamOccurrenceId)
) )
postprocess result = seq resultAscList (resultAscList, resultUsers) postprocess result = (resultAscList, resultUsers)
where where
maxTagLength :: Int maxTagLength :: Int
maxTagLength = maybe 0 maximum $ fromNullable $ concatMap (map length . snd) result maxTagLength = maybe 0 maximum $ fromNullable $ concatMap (map length . snd) result