diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs
index 34e708482..9021eebe9 100644
--- a/src/Handler/Exam/AutoOccurrence.hs
+++ b/src/Handler/Exam/AutoOccurrence.hs
@@ -134,7 +134,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
       runFormPost $ examAutoOccurrenceNudgeForm occId (formResult' . asum $ calculateRes : nudgeRes ^.. ifolded . ifiltered (\occId' _ -> occId' /= occId) . _1 . _1 ++ ignoreRes ^.. folded . _1 . _1)
     ignoreRes <- sequence . flip Map.fromSet (setOf (folded . _entityKey) occurrences) $ \occId ->
       runFormPost $ examAutoOccurrenceIgnoreRoomsForm occId (formResult' . asum $ calculateRes : nudgeRes ^.. folded . _1 . _1 ++ ignoreRes ^.. ifolded . ifiltered (\occId' _ -> occId' /= occId) . _1 . _1)
-    return $ (nudgeRes, ignoreRes)
+    return (nudgeRes, ignoreRes)
 
 
   let calculateRes' = asum $ calculateRes : nudgeRes ^.. folded . _1 . _1 ++ ignoreRes ^.. folded . _1 . _1
diff --git a/test/Handler/Utils/ExamSpec.hs b/test/Handler/Utils/ExamSpec.hs
index c0675a2cd..12617d859 100644
--- a/test/Handler/Utils/ExamSpec.hs
+++ b/test/Handler/Utils/ExamSpec.hs
@@ -122,7 +122,7 @@ spec = do
                 let userProperties :: Map UserId (UserProperties, Maybe ExamOccurrenceId)
                     userProperties = Map.map (first UserProperties) users
                 case autoOccurrenceResult of
-                    (Right (occurrenceMapping, userMap)) -> do
+                    (Right (occurrenceMapping, userMap, _ignoredRooms)) -> do
                         -- user count stays constant
                         myAnnotate "number of users changed" $ shouldBe (length userMap) (length users)
                         -- no room is overfull