diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-13 21:38:03 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-13 21:57:07 +0100 |
| commit | 442eb914a350a66716580fb9ed306fec1f27756d (patch) | |
| tree | 79c17ca1d248014c64971f987a5954c82cef037f /main/Test.hs | |
| parent | 70e22576dc6fbd1a8156d4c66f39a260f83479bf (diff) | |
Pass whole Invite to the “accepted” hook
Diffstat (limited to 'main/Test.hs')
| -rw-r--r-- | main/Test.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |