From 70e22576dc6fbd1a8156d4c66f39a260f83479bf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 13 Jan 2026 21:15:36 +0100
Subject: =?UTF-8?q?Call=20=E2=80=9Caccepted=E2=80=9D=20hook=20only=20for?=
 =?UTF-8?q?=20valid=20invites?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/Erebos/Invite.hs b/src/Erebos/Invite.hs
index faeb646..89670ec 100644
--- a/src/Erebos/Invite.hs
+++ b/src/Erebos/Invite.hs
@@ -188,13 +188,13 @@ instance Service InviteService where
 
     serviceHandler = fromStored >>> \case
         AcceptInvite token -> do
-            asks (inviteHookAccepted . svcAttributes) >>= ($ token)
             invites <- fromSetBy (comparing inviteToken) . lookupSharedValue . lsShared . fromStored <$> getLocalHead
             case find ((Just token ==) . inviteToken) invites of
                 Just invite
                     | Just name <- inviteContact invite
                     , [] <- inviteAccepted invite
                     -> do
+                        asks (inviteHookAccepted . svcAttributes) >>= ($ token)
                         identity <- asks svcPeerIdentity
                         cdata <- mstore ContactData
                             { cdPrev = []
-- 
cgit v1.2.3