From 344bd420cd57c48b7bda4ead302cac3900e8046e Mon Sep 17 00:00:00 2001
From: Wolfgang Witt <Wolfgang.Witt@campus.lmu.de>
Date: Mon, 8 Feb 2021 16:37:53 +0100
Subject: [PATCH] chore: don't use suffix of a prefix for mapping description

---
 src/Handler/Utils/Exam.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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