From 023171b156fc00c29293cf36979e957f824ba7cc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 3 Aug 2025 22:50:30 +0200 Subject: Automatically update direct message peer identity --- src/Erebos/DirectMessage.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs index 7cb1829..d680997 100644 --- a/src/Erebos/DirectMessage.hs +++ b/src/Erebos/DirectMessage.hs @@ -107,7 +107,9 @@ instance Service DirectMessage where else join $ asks $ dmOwnerMismatch . svcAttributes - serviceNewPeer = syncDirectMessageToPeer . lookupSharedValue . lsShared . fromStored =<< svcGetLocal + serviceNewPeer = do + updateDirectMessagePeer . finalOwner =<< asks svcPeerIdentity + syncDirectMessageToPeer . lookupSharedValue . lsShared . fromStored =<< svcGetLocal serviceStorageWatchers _ = [ SomeStorageWatcher (lookupSharedValue . lsShared . fromStored) syncDirectMessageToPeer -- cgit v1.2.3