diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs
index 222fd7896..6354b2dcd 100644
--- a/src/Handler/Exam/AutoOccurrence.hs
+++ b/src/Handler/Exam/AutoOccurrence.hs
@@ -103,9 +103,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
   nudgeRes <- sequence . flip Map.fromSet (setOf (folded . _entityKey) occurrences) $ \occId ->
     runFormPost $ examAutoOccurrenceNudgeForm occId (formResult' calculateRes)
 
-  let calculateRes' = asum $
-        [ calculateRes
-        ] ++ toListOf (folded . _1 . _1) nudgeRes
+  let calculateRes' = asum $ calculateRes : nudgeRes ^.. folded . _1 . _1
 
   calcResult <- formResultMaybe calculateRes' $ \ExamAutoOccurrenceCalculateForm{..} -> runDB $ do
     participants <- E.select . E.from $ \(registration `E.InnerJoin` user) -> do