This commit is contained in:
spaced4ndy
2024-02-20 20:17:34 +04:00
parent e3c195a308
commit 05a4490bfc
4 changed files with 24 additions and 24 deletions
+3 -3
View File
@@ -411,9 +411,9 @@ checkContactIsUser db User {userContactId} Contact {contactId} = do
DB.query db "SELECT is_user FROM contacts WHERE contact_id = ?" (Only contactId)
pure $ fromMaybe False isUser_ || contactId == userContactId
checkLDNIsUser :: DB.Connection -> ContactName -> IO Bool
checkLDNIsUser db ldn = do
checkLDNIsUser :: DB.Connection -> User -> ContactName -> IO Bool
checkLDNIsUser db User {userId} ldn = do
r :: (Maybe Int64) <-
maybeFirstRow fromOnly $
DB.query db "SELECT 1 FROM users WHERE local_display_name = ? LIMIT 1" (Only ldn)
DB.query db "SELECT 1 FROM users WHERE user_id = ? AND local_display_name = ? LIMIT 1" (userId, ldn)
pure $ isJust r