diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs
index df5b2c6d4..3aef48f8a 100644
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@@ -412,7 +412,7 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
     -- ^ Only use non-ignored occurrences
     -- Sort by size if specified (here increasing, since it is reversed later)
     occurrences'' = case eaocIgnoreRooms of
-      ExamAutoOccurrenceIgnoreRooms {..} -> ((if eaoirSorted then sortOn (view _2) else id) $ Map.toList $ Map.withoutKeys occurrences' eaoirIgnored)
+      ExamAutoOccurrenceIgnoreRooms {..} -> (if eaoirSorted then sortOn (view _2) else id) $ Map.toList $ Map.withoutKeys occurrences' eaoirIgnored
     
     partitionRestricted :: ([a], [(a, Natural)]) -> [(a,ExamOccurrenceCapacity)] -> ([a], [(a, Natural)])
     partitionRestricted acc []                   = acc