From 38da1e2ff15fdd210459f21baa4385c8b328a244 Mon Sep 17 00:00:00 2001 From: Diogo Date: Wed, 11 Dec 2024 11:31:40 +0000 Subject: [PATCH] attach tags to contact --- src/Simplex/Chat/Store/Direct.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Simplex/Chat/Store/Direct.hs b/src/Simplex/Chat/Store/Direct.hs index 5e84c83985..996884f65c 100644 --- a/src/Simplex/Chat/Store/Direct.hs +++ b/src/Simplex/Chat/Store/Direct.hs @@ -847,7 +847,10 @@ getContactIdByName db User {userId} cName = DB.query db "SELECT contact_id FROM contacts WHERE user_id = ? AND local_display_name = ? AND deleted = 0" (userId, cName) getContact :: DB.Connection -> VersionRangeChat -> User -> Int64 -> ExceptT StoreError IO Contact -getContact db vr user contactId = getContact_ db vr user contactId False +getContact db vr user contactId = do + ct <- getContact_ db vr user contactId False + chatTags <- liftIO $ getDirectChatTags db contactId + pure (ct :: Contact) {chatTags = chatTags} getContact_ :: DB.Connection -> VersionRangeChat -> User -> Int64 -> Bool -> ExceptT StoreError IO Contact getContact_ db vr user@User {userId} contactId deleted =