core: fix member version range not being correctly updated in some cases (fixes introducing owner to member in review, when host admin was invited via owner's link; likely fixes other interactions that check version) (#6208)

* core: fix introducing owner to member in review

* fix

* remove diff

* unfocus

* plans
This commit is contained in:
spaced4ndy authored and GitHub committed 2025-08-20 12:00:11 +01:00
1 parent 6941539f25
commit 0046fc27fe
3 files changed
+113 -2

No files matched your search

+2 -2
View File
@@ -1326,9 +1326,9 @@ updatePeerChatVRange conn@Connection {connId, connChatVersion = v, peerChatVRang
else pure conn'
updateMemberChatVRange :: GroupMember -> Connection -> VersionRangeChat -> CM (GroupMember, Connection)
updateMemberChatVRange mem@GroupMember {groupMemberId} conn@Connection {connId, connChatVersion = v, peerChatVRange} msgVRange = do
updateMemberChatVRange mem@GroupMember {groupMemberId, memberChatVRange} conn@Connection {connId, connChatVersion = v, peerChatVRange} msgVRange = do
v' <- lift $ upgradedConnVersion v msgVRange
if msgVRange /= peerChatVRange || v' /= v
if msgVRange /= peerChatVRange || v' /= v || msgVRange /= memberChatVRange
then do
withStore' $ \db -> do
setPeerChatVRange db connId v' msgVRange