From 79833be3be44766a967f4f1427d9de64b14fee5b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 15 Jul 2024 22:47:31 +0200
Subject: Send current chatroom subscriptions to new peers

---
 src/Erebos/Chatroom.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Erebos')

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index be1a0e4..b2432c5 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -434,8 +434,13 @@ instance Service ChatroomService where
 
     serviceHandler spacket = do
         let ChatroomService {..} = fromStored spacket
+
+        previouslyUpdated <- psSendRoomUpdates <$> svcGet
         svcModify $ \s -> s { psSendRoomUpdates = True }
 
+        when (not previouslyUpdated) $ do
+            syncChatroomsToPeer . lookupSharedValue . lsShared . fromStored =<< getLocalHead
+
         when chatRoomQuery $ do
             rooms <- listChatrooms
             replyPacket emptyPacket
-- 
cgit v1.2.3