From 6c13b1285605020bb3c510dd1862d2d8d9828337 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 17 Jul 2022 22:51:32 +0200
Subject: Generalize head updates to provided MonadIO instances

---
 src/Contact.hs | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'src/Contact.hs')

diff --git a/src/Contact.hs b/src/Contact.hs
index 70e79b9..1dc926e 100644
--- a/src/Contact.hs
+++ b/src/Contact.hs
@@ -153,12 +153,11 @@ contactReject :: (MonadIO m, MonadError String m) => Peer -> m ()
 contactReject = pairingReject @ContactAccepted Proxy
 
 finalizeContact :: MonadHead LocalState m => UnifiedIdentity -> m ()
-finalizeContact identity = do
+finalizeContact identity = updateSharedState_ $ \contacts -> do
     st <- getStorage
-    updateSharedState_ $ \contacts -> do
-        cdata <- wrappedStore st ContactData
-            { cdPrev = []
-            , cdIdentity = idDataF $ finalOwner identity
-            , cdName = Nothing
-            }
-        storeSetAdd st (mergeSorted @Contact [cdata]) contacts
+    cdata <- wrappedStore st ContactData
+        { cdPrev = []
+        , cdIdentity = idDataF $ finalOwner identity
+        , cdName = Nothing
+        }
+    storeSetAdd st (mergeSorted @Contact [cdata]) contacts
-- 
cgit v1.2.3