core: pause cleanup when chat is suspended (#3658)

2024-12-17 17:20:21 +01:00 · 2024-01-08 17:28:01 +04:00
parent 3ccd9903a7
commit 58ad97fe6d
2 changed files with 20 additions and 6 deletions
@@ -200,6 +200,7 @@ data ChatController = ChatController
    expireCIThreads :: TMap UserId (Maybe (Async ())),
    expireCIFlags :: TMap UserId Bool,
    cleanupManagerAsync :: TVar (Maybe (Async ())),
+    chatActivated :: TVar Bool,
    timedItemThreads :: TMap (ChatRef, ChatItemId) (TVar (Maybe (Weak ThreadId))),
    showLiveItems :: TVar Bool,
    encryptLocalFiles :: TVar Bool,