fix: restrict guessUser to consistent queries

src/Handler/Utils/Users.hs

@@ -47,7 +47,7 @@ guessUser (Set.toList -> criteria) = $cachedHereBinary criteria $ go False
 
     go didLdap = do
       let retrieveUsers = E.select . E.from $ \user -> do
-            E.where_ . E.or $ map (toSql user) criteria 
+            E.where_ . E.and $ map (toSql user) criteria 
             return user
       users <- retrieveUsers
       let users' = reverse $ sortBy closeness users