chore: don't use suffix of a prefix for mapping description

This commit is contained in:
Wolfgang Witt 2021-02-08 16:37:53 +01:00 committed by Wolfgang Witt
parent 8f2b31acef
commit 344bd420cd

View File

@ -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