From c9f23c5db32bca0ec50af845f6caacf31206d24f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 19 Jan 2026 21:38:47 +0100
Subject: Discovery request after accepting invite

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

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

diff --git a/src/Erebos/Invite.hs b/src/Erebos/Invite.hs
index 70ccffb..d2f62fd 100644
--- a/src/Erebos/Invite.hs
+++ b/src/Erebos/Invite.hs
@@ -32,6 +32,7 @@ import Data.Text qualified as T
 import Data.Text.Encoding
 
 import Erebos.Contact
+import Erebos.Discovery
 import Erebos.Identity
 import Erebos.Network
 import Erebos.Object
@@ -330,7 +331,7 @@ sendAcceptedInvites server aiset = do
                         svcModify (token :)
                         replyPacket $ AcceptInvite token
                     Nothing -> do
-                        return ()
+                        discoverySearch server from
         _ -> return ()
 
 identityOwnerDigests :: Foldable f => Identity f -> [ RefDigest ]
-- 
cgit v1.2.3