diff options
Diffstat (limited to 'src/Erebos')
| -rw-r--r-- | src/Erebos/Invite.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 ] |