From 442eb914a350a66716580fb9ed306fec1f27756d 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:38:03 +0100
Subject: =?UTF-8?q?Pass=20whole=20Invite=20to=20the=20=E2=80=9Caccepted?=
 =?UTF-8?q?=E2=80=9D=20hook?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 main/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index a3b91c2..7fdf5fc 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -235,9 +235,9 @@ discoveryAttributes = (defaultServiceAttributes Proxy)
 
 inviteAttributes :: Output -> InviteServiceAttributes
 inviteAttributes out = (defaultServiceAttributes Proxy)
-    { inviteHookAccepted = \token -> do
+    { inviteHookAccepted = \Invite {..} -> do
         pid <- asks svcPeerIdentity
-        afterCommit $ outLine out $ "invite-accepted " <> showInviteToken token <> " " <> (BC.unpack $ showRef $ storedRef $ idExtData pid)
+        afterCommit $ outLine out $ "invite-accepted " <> maybe "<missing-token>" showInviteToken inviteToken <> " " <> (BC.unpack $ showRef $ storedRef $ idExtData pid)
     , inviteHookReplyContact = \token _ -> do
         afterCommit $ outLine out $ "invite-accept-done " <> showInviteToken token <> " contact"
     , inviteHookReplyInvalid = \token -> do
-- 
cgit v1.2.3