smp server: do not create messaging queues in SMP proxy to prevent deadlock in processing (#1839)

* smp: fix proxy message queue memory leak

* smp server: do not create messaging queues in SMP proxy to prevent deadlock in processing

---------

Co-authored-by: Evgeny Poberezkin <evgeny@poberezkin.com>
This commit is contained in:
sh
2026-07-30 16:33:27 +01:00
committed by GitHub
co-authored by Evgeny Poberezkin
parent efaad8e734
commit 7d0820dd44
5 changed files with 10 additions and 9 deletions
@@ -526,10 +526,10 @@ subscribeNtfs NtfSubscriber {smpSubscribers, subscriberSeq, smpAgent = ca} st sm
subscribeQueuesNtfs ca smpServer' [sub]
ntfSubscriber :: NtfSubscriber -> M ()
ntfSubscriber NtfSubscriber {smpAgent = ca@SMPClientAgent {msgQ, agentQ}} =
ntfSubscriber NtfSubscriber {smpAgent = ca@SMPClientAgent {msgQ = msgQ_, agentQ}} =
race_ receiveSMP receiveAgent
where
receiveSMP = do
receiveSMP = forM_ msgQ_ $ \msgQ -> do
st <- asks store
ps <- asks pushServer
stats <- asks serverStats