Merge branch 'master' into ep/old-sessions-subs

This commit is contained in:
Evgeny Poberezkin
2024-05-03 23:21:06 +01:00
+1 -1
View File
@@ -731,7 +731,7 @@ sendBatch c@ProtocolClient {client_ = PClient {rcvConcurrency, sndQ}} expire b =
| n > 0 -> do
active <- mkActive_ expire
atomically $ writeTBQueue sndQ (active, s)
pooledMapConcurrentlyN rcvConcurrency (getResponse c active) rs
mapConcurrently (getResponse c active) rs
| otherwise -> pure []
TBTransmission s r -> do
active <- mkActive_ expire