mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-08-28 07:14:59 +00:00
rename
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user