dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-10 07:51:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

more logs 3

Browse Source
This commit is contained in:
Evgeny Poberezkin
2026-04-30 19:03:50 +01:00
parent 689c6192c0
commit 5f2a1ad7cc
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Library/Subscriber.hs
+5 -3
View File
@@ -3729,7 +3729,9 @@ runRelayRequestWorker a Worker {doWork} = do
where
retryTmpError :: CM () -> GroupId -> ChatError -> CM ()
retryTmpError loop groupId = \case
ChatErrorAgent {agentError} | temporaryOrHostError agentError -> loop
e@ChatErrorAgent {agentError} | temporaryOrHostError agentError -> do
liftIO $ putStrLn $ "**** retryTmpError " <> show e
loop
e -> do
withStore' $ \db -> setRelayRequestErr db groupId (tshow e)
eToView e
@@ -3746,14 +3748,14 @@ runRelayRequestWorker a Worker {doWork} = do
case sLnk_ of
Just sLnk -> acceptOwnerConnection rrd gInfo sLnk
Nothing -> throwChatError $ CEException "processRelayRequest: relay link doesn't have short link"
Left e -> do
Left _ -> do
(gInfo', sLnk) <- getLinkDataCreateRelayLink rrd gInfo
acceptOwnerConnection rrd gInfo' sLnk
where
getLinkDataCreateRelayLink :: RelayRequestData -> GroupInfo -> CM (GroupInfo, ShortLinkContact)
getLinkDataCreateRelayLink RelayRequestData {reqGroupLink} gInfo = do
liftIO $ putStrLn "**** getLinkDataCreateRelayLink"
(FixedLinkData {linkEntityId, rootKey}, cData@(ContactLinkData _ UserContactData {owners})) <- getShortLinkConnReq' NRMBackground user reqGroupLink
(FixedLinkData {linkEntityId, rootKey}, cData@(ContactLinkData _ UserContactData {owners})) <- getShortLinkConnReq' NRMBackground user reqGroupLink `catchAllErrors` \e -> liftIO (print e) >> throwError e
liftIO $ putStrLn "**** getLinkDataCreateRelayLink after getShortLinkConnReq"
liftIO (decodeLinkUserData cData) >>= \case
Nothing -> do