diff --git a/simplex-chat.cabal b/simplex-chat.cabal index 463612cb69..88a92e6bb4 100644 --- a/simplex-chat.cabal +++ b/simplex-chat.cabal @@ -5,7 +5,7 @@ cabal-version: 1.12 -- see: https://github.com/sol/hpack name: simplex-chat -version: 6.4.5.0 +version: 6.4.5.1 category: Web, System, Services, Cryptography homepage: https://github.com/simplex-chat/simplex-chat#readme author: simplex.chat diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs index d452255d71..b668a1d793 100644 --- a/src/Simplex/Chat/Library/Commands.hs +++ b/src/Simplex/Chat/Library/Commands.hs @@ -534,7 +534,7 @@ processChatCommand vr nm = \case Just newMemAttention -> do (gInfo', scopeMem') <- withFastStore' $ \db -> setSupportChatMemberAttention db vr user gInfo scopeMem newMemAttention - pure $ groupChat {chatInfo = GroupChat gInfo' (Just $ GCSIMemberSupport (Just scopeMem'))} + pure (groupChat {chatInfo = GroupChat gInfo' (Just $ GCSIMemberSupport (Just scopeMem'))} :: Chat 'CTGroup) Nothing -> pure groupChat _ -> pure groupChat where diff --git a/tests/ChatClient.hs b/tests/ChatClient.hs index b868671f3b..acf7903003 100644 --- a/tests/ChatClient.hs +++ b/tests/ChatClient.hs @@ -533,6 +533,7 @@ smpServerCfg = dailyBlockQueueQuota = 20, messageExpiration = Just defaultMessageExpiration, expireMessagesOnStart = False, + expireMessagesOnSend = False, idleQueueInterval = defaultIdleQueueInterval, notificationExpiration = defaultNtfExpiration, inactiveClientExpiration = Just defaultInactiveClientExpiration,