From 9d28d822897d59c7e98aac1ca8ba254fc00fd9df Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 4 Aug 2025 19:45:50 +0200
Subject: Separate notifications for new and updated peers

---
 src/Erebos/DirectMessage.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Erebos/DirectMessage.hs')

diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs
index d680997..7807204 100644
--- a/src/Erebos/DirectMessage.hs
+++ b/src/Erebos/DirectMessage.hs
@@ -108,9 +108,11 @@ instance Service DirectMessage where
            else join $ asks $ dmOwnerMismatch . svcAttributes
 
     serviceNewPeer = do
-        updateDirectMessagePeer . finalOwner =<< asks svcPeerIdentity
         syncDirectMessageToPeer . lookupSharedValue . lsShared . fromStored =<< svcGetLocal
 
+    serviceUpdatedPeer = do
+        updateDirectMessagePeer . finalOwner =<< asks svcPeerIdentity
+
     serviceStorageWatchers _ =
         [ SomeStorageWatcher (lookupSharedValue . lsShared . fromStored) syncDirectMessageToPeer
         , GlobalStorageWatcher (lookupSharedValue . lsShared . fromStored) findMissingPeers
-- 
cgit v1.2.3