From 72d42baec50656618037505dd25c5016bc359ff9 Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Fri, 26 Feb 2021 17:46:19 +0100 Subject: [PATCH] chore: remove redundant seq --- src/Handler/Utils/Exam.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs index 4eab1eb0b..6b7f9c505 100644 --- a/src/Handler/Utils/Exam.hs +++ b/src/Handler/Utils/Exam.hs @@ -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