mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-04-30 08:06:20 +00:00
core: fix connecting via short links
This commit is contained in:
@@ -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 ()
|
||||
|
||||
Reference in New Issue
Block a user