diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-08-27 18:33:16 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-08-30 20:53:55 +0200 |
| commit | c27b3c23ecdd53acdbfece747b9bbdb39bf4dae9 (patch) | |
| tree | 52a4be70840e2691195ec54149f5ac14ec112606 /src/Sync.hs | |
| parent | dfddb65ad1abf5ba4171be42d303850ebbc363ee (diff) | |
Replace storedStorage usage with MonadHead
Diffstat (limited to 'src/Sync.hs')
| -rw-r--r-- | src/Sync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |