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