From 6244a250ee027361a7346d89db66f7b8a4db9096 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel@cip.ifi.lmu.de>
Date: Mon, 17 Aug 2020 11:08:34 +0200
Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s)

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

diff --git a/src/Handler/Utils/ExternalExam/Users.hs b/src/Handler/Utils/ExternalExam/Users.hs
index 6c2243cf0..68d6a5875 100644
--- a/src/Handler/Utils/ExternalExam/Users.hs
+++ b/src/Handler/Utils/ExternalExam/Users.hs
@@ -492,7 +492,7 @@ makeExternalExamUsersTable mode (Entity eeId ExternalExam{..}) = do
         
         guessUser' :: ExternalExamUserTableCsv -> DB (Either (NonEmpty (Entity User)) (Entity User))
         guessUser' ExternalExamUserTableCsv{..} = do
-          let criteria = PredDNF $ Set.singleton $ impureNonNull $ Set.fromList $ (PLVariable <$>) $ catMaybes
+          let criteria = PredDNF . maybe Set.empty Set.singleton . fromNullable . Set.fromList . fmap PLVariable $ catMaybes
                 [ GuessUserMatrikelnummer <$> csvEUserMatriculation
                 , GuessUserDisplayName <$> csvEUserName
                 , GuessUserSurname <$> csvEUserSurname