From 7a8e3fa16970296de6e553631fab7cfd67f461c2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 29 Mar 2025 21:08:14 +0100
Subject: Keep weak reference to previous local state

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

(limited to 'src/Erebos/Chatroom.hs')

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index 2d4f272..74456ff 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -293,7 +293,7 @@ createChatroom rdName rdDescription = do
         , rsdSubscribe = Just True
         }
 
-    updateLocalHead $ updateSharedState $ \rooms -> do
+    updateLocalState $ updateSharedState $ \rooms -> do
         st <- getStorage
         (, cstate) <$> storeSetAdd st cstate rooms
 
@@ -302,7 +302,7 @@ findAndUpdateChatroomState
     => (ChatroomState -> Maybe (m ChatroomState))
     -> m (Maybe ChatroomState)
 findAndUpdateChatroomState f = do
-    updateLocalHead $ updateSharedState $ \roomSet -> do
+    updateLocalState $ updateSharedState $ \roomSet -> do
         let roomList = fromSetBy (comparing $ roomName <=< roomStateRoom) roomSet
         case catMaybes $ map (\x -> (x,) <$> f x) roomList of
             ((orig, act) : _) -> do
@@ -523,7 +523,7 @@ instance Service ChatroomService where
                 }
 
         when (not $ null chatRoomInfo) $ do
-            updateLocalHead_ $ updateSharedState_ $ \roomSet -> do
+            updateLocalState_ $ updateSharedState_ $ \roomSet -> do
                 let rooms = fromSetBy (comparing $ roomName <=< roomStateRoom) roomSet
                     upd set (roomInfo :: Stored (Signed ChatroomData)) = do
                         let currentRoots = storedRoots roomInfo
@@ -562,7 +562,7 @@ instance Service ChatroomService where
                 svcModify $ \ps -> ps { psSubscribedTo = filter (/= leastRoot) (psSubscribedTo ps) }
 
         when (not (null chatRoomMessage)) $ do
-            updateLocalHead_ $ updateSharedState_ $ \roomSet -> do
+            updateLocalState_ $ updateSharedState_ $ \roomSet -> do
                 let rooms = fromSetBy (comparing $ roomName <=< roomStateRoom) roomSet
                     upd set (msgData :: Stored (Signed ChatMessageData))
                         | Just msg <- validateSingleMessage msgData = do
-- 
cgit v1.2.3