Apply 1 suggestion(s) to 1 file(s)

2020-08-17 11:08:24 +02:00 · 2020-08-17 11:08:24 +02:00 · 323d423fc6
commit 323d423fc6
parent df18a6bea3
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Exam/Users.hs
+++ b/src/Handler/Exam/Users.hs
@ -973,7 +973,7 @@ postEUsersR tid ssh csh examn = do

              guessUser' :: ExamUserTableCsv -> DB (Bool, UserId)
              guessUser' ExamUserTableCsv{..} = 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