From 0c3a742d0bb993e7fdc4b467f6c064eab2d34d0f Mon Sep 17 00:00:00 2001 From: Diogo Date: Wed, 11 Dec 2024 11:33:43 +0000 Subject: [PATCH] simplify --- src/Simplex/Chat/Store/Direct.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Simplex/Chat/Store/Direct.hs b/src/Simplex/Chat/Store/Direct.hs index 996884f65c..bd30f71b36 100644 --- a/src/Simplex/Chat/Store/Direct.hs +++ b/src/Simplex/Chat/Store/Direct.hs @@ -850,7 +850,7 @@ getContact :: DB.Connection -> VersionRangeChat -> User -> Int64 -> ExceptT Stor getContact db vr user contactId = do ct <- getContact_ db vr user contactId False chatTags <- liftIO $ getDirectChatTags db contactId - pure (ct :: Contact) {chatTags = chatTags} + pure (ct :: Contact) {chatTags} getContact_ :: DB.Connection -> VersionRangeChat -> User -> Int64 -> Bool -> ExceptT StoreError IO Contact getContact_ db vr user@User {userId} contactId deleted =