diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-03 22:50:30 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-04 20:56:33 +0200 |
| commit | 023171b156fc00c29293cf36979e957f824ba7cc (patch) | |
| tree | d88dbe5d774e0c4e1cfd84c98a95d95226403f16 /src/Erebos/DirectMessage.hs | |
| parent | fb822a15735c2fa85757c51fba6291f4d4385fe7 (diff) | |
Automatically update direct message peer identity
Diffstat (limited to 'src/Erebos/DirectMessage.hs')
| -rw-r--r-- | src/Erebos/DirectMessage.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |