From ae3e1b6266c1b541b4dd6a2ed07635aa8959963b Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Tue, 16 Mar 2021 10:22:21 +0000 Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s) --- src/Handler/Exam/AutoOccurrence.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs index 04460a2b0..714701ff5 100644 --- a/src/Handler/Exam/AutoOccurrence.hs +++ b/src/Handler/Exam/AutoOccurrence.hs @@ -113,7 +113,7 @@ postEAutoOccurrenceR tid ssh csh examn = do let participants' = Map.fromList $ do (Entity uid userRec, Entity _ ExamRegistration{..}) <- participants return (uid, (userRec, examRegistrationOccurrence)) - occurrences' = Map.fromList $ map (\(Entity eoId ExamOccurrence{..}) -> (eoId, view (from _examOccurrenceCapacityIso) $ fromIntegral <$> examOccurrenceCapacity)) occurrences + occurrences' = Map.fromList $ map (\(Entity eoId ExamOccurrence{..}) -> (eoId, _examOccurrenceCapacityIso # (fromIntegral <$> examOccurrenceCapacity))) occurrences autoOccurrenceResult = examAutoOccurrence eId examOccurrenceRule eaofConfig occurrences' participants' (eaofMapping, eaofAssignment) <- case autoOccurrenceResult of (Left e) -> do