From 5f2a1ad7cc1bfcf7b3d0a7d03f491e78fc0ced34 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Thu, 30 Apr 2026 19:03:50 +0100
Subject: [PATCH] more logs 3

---
 src/Simplex/Chat/Library/Subscriber.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs
index a6965a8344..e1a2b59757 100644
--- a/src/Simplex/Chat/Library/Subscriber.hs
+++ b/src/Simplex/Chat/Library/Subscriber.hs
@@ -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