diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2020-02-03 22:29:31 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2020-02-04 22:52:47 +0100 |
| commit | 6f0bcff200598d085c89d167aa126d25fc5df3ed (patch) | |
| tree | 0868edc1759b7c90eaba7ab8d4835179b42541ff /src/Sync.hs | |
| parent | 84d7c83bc85ff0862a39d6de3bd227550175ebce (diff) | |
Service: stored or ref-only reply packet
Use the ref-only packet to acknowledge successful storage of received
direct message.
Diffstat (limited to 'src/Sync.hs')
| -rw-r--r-- | src/Sync.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Sync.hs b/src/Sync.hs index e8edf33..37941b8 100644 --- a/src/Sync.hs +++ b/src/Sync.hs @@ -30,7 +30,6 @@ instance Service SyncService where updated = filterAncestors (added : current) when (current /= updated) $ do svcSetLocal =<< wrappedStore st (fromStored ls) { lsShared = updated } - return Nothing instance Storable (ServicePacket SyncService) where store' (SyncPacket smsg) = store' smsg |