From edafccea465f1f9448a1a7ae555b8615e5b5ac1b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 2 Jul 2023 20:02:11 +0200
Subject: Shared state helpers usable with other local head updates

---
 src/Contact.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Contact.hs')

diff --git a/src/Contact.hs b/src/Contact.hs
index 6585985..2d1e2a9 100644
--- a/src/Contact.hs
+++ b/src/Contact.hs
@@ -165,7 +165,7 @@ contactReject :: (MonadIO m, MonadError String m) => Peer -> m ()
 contactReject = pairingReject @ContactAccepted Proxy
 
 finalizeContact :: MonadHead LocalState m => UnifiedIdentity -> m ()
-finalizeContact identity = updateSharedState_ $ \contacts -> do
+finalizeContact identity = updateLocalHead_ $ updateSharedState_ $ \contacts -> do
     st <- getStorage
     cdata <- wrappedStore st ContactData
         { cdPrev = []
-- 
cgit v1.2.3