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