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/Sync.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Erebos/Sync.hs b/src/Erebos/Sync.hs
index 32e2e22..d837a14 100644
--- a/src/Erebos/Sync.hs
+++ b/src/Erebos/Sync.hs
@@ -23,7 +23,7 @@ instance Service SyncService where
         pid <- asks svcPeerIdentity
         self <- svcSelf
         when (finalOwner pid `sameIdentity` finalOwner self) $ do
-            updateLocalHead_ $ \ls -> do
+            updateLocalState_ $ \ls -> do
                 let current = sort $ lsShared $ fromStored ls
                     updated = filterAncestors (added : current)
                 if current /= updated
-- 
cgit v1.2.3