From c27b3c23ecdd53acdbfece747b9bbdb39bf4dae9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 27 Aug 2023 18:33:16 +0200
Subject: Replace storedStorage usage with MonadHead

---
 src/Sync.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Sync.hs')

diff --git a/src/Sync.hs b/src/Sync.hs
index b1c0ab0..dd801b5 100644
--- a/src/Sync.hs
+++ b/src/Sync.hs
@@ -27,7 +27,7 @@ instance Service SyncService where
                 let current = sort $ lsShared $ fromStored ls
                     updated = filterAncestors (added : current)
                 if current /= updated
-                   then wrappedStore (storedStorage ls) (fromStored ls) { lsShared = updated }
+                   then mstore (fromStored ls) { lsShared = updated }
                    else return ls
 
     serviceNewPeer = notifyPeer . lsShared . fromStored =<< svcGetLocal
@@ -43,4 +43,4 @@ notifyPeer shared = do
     self <- svcSelf
     when (finalOwner pid `sameIdentity` finalOwner self) $ do
         forM_ shared $ \sh ->
-            replyStoredRef =<< (wrappedStore (storedStorage sh) . SyncPacket) sh
+            replyStoredRef =<< (mstore . SyncPacket) sh
-- 
cgit v1.2.3