diff options
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 |