From bf6dc395ce82c6892ffd0a8dbbe38d0daed24cbb Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Thu, 30 Apr 2026 18:32:00 +0100
Subject: [PATCH] fix logs

---
 src/Simplex/Chat/Library/Subscriber.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs
index 1e2b70f48c..b83bf81f14 100644
--- a/src/Simplex/Chat/Library/Subscriber.hs
+++ b/src/Simplex/Chat/Library/Subscriber.hs
@@ -3735,12 +3735,12 @@ runRelayRequestWorker a Worker {doWork} = do
             eToView e
         processRelayRequest :: GroupId -> RelayRequestData -> CM ()
         processRelayRequest groupId rrd = do
-          putStrLn "**** processRelayRequest"
+          liftIO $ putStrLn "**** processRelayRequest"
           (gInfo, groupLink_) <- withStore $ \db -> do
             gInfo <- getGroupInfo db vr user groupId
-            putStrLn "**** processRelayRequest getGroupInfo"
+            liftIO $ putStrLn "**** processRelayRequest getGroupInfo"
             groupLink_ <- liftIO $ runExceptT $ getGroupLink db user gInfo
-            putStrLn "**** processRelayRequest after getGroupLink"
+            liftIO $ putStrLn "**** processRelayRequest after getGroupLink"
             pure (gInfo, groupLink_)
           -- Check if relay link already exists (recovery case)
           case groupLink_ of
@@ -3748,7 +3748,8 @@ 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 _ -> do
+            Left e -> do
+              liftIO $ putStrLn $ "**** processRelayRequest failed to create group link " <> show e
               (gInfo', sLnk) <- getLinkDataCreateRelayLink rrd gInfo
               acceptOwnerConnection rrd gInfo' sLnk
           where
@@ -3799,5 +3800,7 @@ runRelayRequestWorker a Worker {doWork} = do
                   pure (sigKeys, sLnk)
             acceptOwnerConnection :: RelayRequestData -> GroupInfo -> ShortLinkContact -> CM ()
             acceptOwnerConnection RelayRequestData {relayInvId, reqChatVRange} gi relayLink = do
+              liftIO $ putStrLn "**** acceptOwnerConnection"
               ownerMember <- withStore $ \db -> getHostMember db vr user groupId
               void $ acceptRelayJoinRequestAsync user uclId gi ownerMember relayInvId reqChatVRange relayLink
+              liftIO $ putStrLn "**** acceptOwnerConnection after acceptRelayJoinRequestAsync"