diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs index 8c3798c8a..8d0856f61 100644 --- a/src/Handler/Utils/Exam.hs +++ b/src/Handler/Utils/Exam.hs @@ -304,7 +304,7 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences | (uid, (User{..}, Nothing)) <- Map.toList users , matriculation' <- userMatrikelnummer ^.. _Just . filtered (not . null) ] - in Map.mapKeysWith Set.union (take . F.minimum . Set.map length $ Map.keysSet matrUsers) matrUsers + in matrUsers _ -> Map.singleton [] $ Map.keysSet users occurrences' :: Map ExamOccurrenceId Natural