diff options
Diffstat (limited to 'src/Erebos/Sync.hs')
| -rw-r--r-- | src/Erebos/Sync.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Sync.hs b/src/Erebos/Sync.hs index 5f5fdec..52251e3 100644 --- a/src/Erebos/Sync.hs +++ b/src/Erebos/Sync.hs @@ -32,7 +32,7 @@ instance Service SyncService where serviceNewPeer = notifyPeer . lsShared . fromStored =<< svcGetLocal serviceUpdatedPeer = serviceNewPeer - serviceStorageWatchers _ = (:[]) $ SomeStorageWatcher (lsShared . fromStored) notifyPeer + serviceStorageWatchers _ = (:[]) $ someStorageWatcher (lsShared . fromStored) notifyPeer instance Storable SyncService where store' (SyncPacket smsg) = store' smsg |