From 5ebd8cc193da9ed0d5c8137e2663176f4b256ab4 Mon Sep 17 00:00:00 2001
From: Evgeny <evgeny@poberezkin.com>
Date: Sun, 7 Sep 2025 22:20:27 +0100
Subject: [PATCH] core: fix GHC 8.10.7 (#6248)

---
 src/Simplex/Chat/Library/Commands.hs | 2 +-
 tests/ChatClient.hs                  | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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,