diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs
index 5b401a764..2715da603 100644
--- a/src/Handler/Exam/AutoOccurrence.hs
+++ b/src/Handler/Exam/AutoOccurrence.hs
@@ -168,7 +168,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
                 | max' /= 0 = MsgProportion (toMessage curr) (toMessage max') (toRational curr / toRational max')
                 | otherwise = MsgProportionNoRatio (toMessage curr) (toMessage max')
 
-              occMapping occId = examOccurrenceMappingDescriptionWidget occMappingRule <$> (Map.lookup occId $ examOccurrenceMappingMapping $ eaofMapping)
+              occMapping occId = examOccurrenceMappingDescriptionWidget occMappingRule <$> Map.lookup occId (examOccurrenceMappingMapping eaofMapping)
            in $(widgetFile "widgets/exam-occurrence-mapping")
 
   siteLayoutMsg heading $ do
diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs
index 150416cd7..4beaff758 100644
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@@ -287,8 +287,8 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
   = case rule of
       ExamRoomRandom
         -> Right ( ExamOccurrenceMapping {
-              examOccurrenceMappingRule=rule,
-              examOccurrenceMappingMapping=Map.fromList $ (set _2 $ Set.singleton ExamOccurrenceMappingRandom) <$> occurrences''
+              examOccurrenceMappingRule = rule,
+              examOccurrenceMappingMapping = Map.fromList $ set _2 (Set.singleton ExamOccurrenceMappingRandom) <$> occurrences''
             }
            , Map.union (view _2 <$> assignedUsers) randomlyAssignedUsers
            )