From e804e9542fe878e4ace4362257d3402c60ccba11 Mon Sep 17 00:00:00 2001
From: Alexander Bondarenko <486682+dpwiz@users.noreply.github.com>
Date: Thu, 2 May 2024 21:21:07 +0300
Subject: [PATCH] rename

---
 src/Simplex/Messaging/Agent/Client.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Messaging/Agent/Client.hs b/src/Simplex/Messaging/Agent/Client.hs
index 5dfffc52b..a9c6d6745 100644
--- a/src/Simplex/Messaging/Agent/Client.hs
+++ b/src/Simplex/Messaging/Agent/Client.hs
@@ -1181,8 +1181,8 @@ subscribeQueues c qs = do
     subscribeQueues_ env sessionsUsed smp qs' = do
       rs <- sendBatch subscribeSMPQueues smp qs'
       let sessId = sessionId $ thParams smp
-      alive <- atomically $ activeClientSession c (transportSession' smp) sessId
-      if alive
+      active <- atomically $ activeClientSession c (transportSession' smp) sessId
+      if active
         then do
           atomically $ modifyTVar' sessionsUsed (sessId :)
           mapM_ (uncurry $ processSubResult c) rs