From 96b962809fb7f8f6916e7332fe05cf32dceb4e39 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Wed, 23 Apr 2025 13:09:16 +0100
Subject: [PATCH] core: fix connecting via short links

---
 src/Simplex/Chat/Library/Commands.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs
index 890a27f573..5c544e3397 100644
--- a/src/Simplex/Chat/Library/Commands.hs
+++ b/src/Simplex/Chat/Library/Commands.hs
@@ -3159,9 +3159,9 @@ processChatCommand' vr = \case
         hash :: ConnReqContact -> ConnReqUriHash
         hash = ConnReqUriHash . C.sha256Hash . strEncode
     getShortLinkConnReq :: User -> ConnShortLink m -> CM (ConnectionRequestUri m)
-    getShortLinkConnReq User {userId} l = do
+    getShortLinkConnReq user l = do
       l' <- restoreShortLink' l
-      (cReq, cData) <- withAgent (\a -> getConnShortLink a userId l')
+      (cReq, cData) <- withAgent (\a -> getConnShortLink a (aUserId user) l')
       case cData of
         ContactLinkData {direct} | not direct -> throwChatError CEUnsupportedConnReq
         _ -> pure ()