diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs index 9828e7be4a..1e2b70f48c 100644 --- a/src/Simplex/Chat/Library/Subscriber.hs +++ b/src/Simplex/Chat/Library/Subscriber.hs @@ -3735,9 +3735,12 @@ runRelayRequestWorker a Worker {doWork} = do eToView e processRelayRequest :: GroupId -> RelayRequestData -> CM () processRelayRequest groupId rrd = do + putStrLn "**** processRelayRequest" (gInfo, groupLink_) <- withStore $ \db -> do gInfo <- getGroupInfo db vr user groupId + putStrLn "**** processRelayRequest getGroupInfo" groupLink_ <- liftIO $ runExceptT $ getGroupLink db user gInfo + putStrLn "**** processRelayRequest after getGroupLink" pure (gInfo, groupLink_) -- Check if relay link already exists (recovery case) case groupLink_ of