From d7bccceb8b82c166aef593c5acd3ed103cc4eec7 Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Thu, 28 May 2026 19:48:13 +0400 Subject: [PATCH] wip --- src/Simplex/Chat/Library/Subscriber.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs index bfca87f015..ab10152b11 100644 --- a/src/Simplex/Chat/Library/Subscriber.hs +++ b/src/Simplex/Chat/Library/Subscriber.hs @@ -3167,7 +3167,8 @@ processAgentMessageConn vr user@User {userId} corrId agentConnId agentMessage = VMUnsigned _ -> Nothing <$ messageWarning "x.grp.roster: unsigned roster" memberApplyRoster :: CM () memberApplyRoster - | maybe False (newVer <=) (rosterVersion gInfo) = pure () + | maybe False (newVer <) (rosterVersion gInfo) = messageWarning "x.grp.roster: older than accepted version" + | maybe False (newVer ==) (rosterVersion gInfo) = pure () | otherwise = do applyRosterRecords withStore' $ \db -> setGroupRosterVersion db gInfo newVer