dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-05-15 09:35:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

ntf: flush ntfSubQ on deleting all subscriptions (#442)

Browse Source
This commit is contained in:
JRoberts
2022-06-30 13:39:24 +04:00
committed by GitHub
parent 8dc051179a
commit 79d67694ed
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Agent.hs
+2 -1
View File
@@ -65,7 +65,7 @@ module Simplex.Messaging.Agent
)
where
import Control.Concurrent.STM (stateTVar)
import Control.Concurrent.STM (flushTBQueue, stateTVar)
import Control.Logger.Simple (logInfo, showText)
import Control.Monad.Except
import Control.Monad.IO.Unlift (MonadUnliftIO)
@@ -792,6 +792,7 @@ initializeNtfSubs c = do
smpDeleteNtfSubs :: AgentMonad m => AgentClient -> m ()
smpDeleteNtfSubs c = do
ns <- asks ntfSupervisor
void . atomically . flushTBQueue $ ntfSubQ ns
connIds <- atomically $ getSubscriptions c
forM_ connIds $ \connId -> atomically $ writeTBQueue (ntfSubQ ns) (connId, NSCSmpDelete)