From 1d1fcf9ebddcf6e6aa5cf8156ea158f507998fac Mon Sep 17 00:00:00 2001
From: "Evgeny @ SimpleX Chat"
 <259188159+evgeny-simplex@users.noreply.github.com>
Date: Sun, 31 May 2026 20:42:33 +0000
Subject: [PATCH] fix

---
 src/Simplex/Chat/Library/Commands.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs
index d9820c63e8..02d85633d3 100644
--- a/src/Simplex/Chat/Library/Commands.hs
+++ b/src/Simplex/Chat/Library/Commands.hs
@@ -4884,10 +4884,10 @@ runRelayGroupLinkChecks user = do
       sentWebUrl <- withStore' $ \db -> getRelaySentWebUrl db gInfo
       when (currentWebUrl /= sentWebUrl) $ do
         owners <- withStore' $ \db -> getGroupOwners db vr user gInfo
-        let capableOwners = filter (\m -> memberCurrent m && maxVersion (memberChatVRange m) >= relayWebCapVersion) owners
-        unless (null capableOwners) $
+        let capableOwners = filter (\m -> memberCurrent m && m `supportsVersion` relayWebCapVersion) owners
+        unless (null capableOwners) $ do
           void $ sendGroupMessage' user gInfo capableOwners (XGrpRelayCap RelayCapabilities {baseWebUrl = currentWebUrl})
-        withStore' $ \db -> updateRelaySentWebUrl db gInfo currentWebUrl
+          withStore' $ \db -> updateRelaySentWebUrl db gInfo currentWebUrl
     checkRelayInactiveGroups = do
       vr <- chatVersionRange
       ttl <- asks (relayInactiveTTL . config)