core: increase default queue sizes to 1024, fix broadcast bot not to lock when queue is smaller than the number of contacts (#1955)

apps/simplex-broadcast-bot/Main.hs

@@ -6,6 +6,7 @@
 
 module Main where
 
+import Control.Concurrent (forkIO)
 import Control.Concurrent.Async
 import Control.Concurrent.STM
 import Control.Monad.Reader
@@ -48,7 +49,7 @@ broadcastBot BroadcastBotOpts {publishers, welcomeMessage, prohibitedMessage} _u
           if allowContent mc
             then do
               sendChatCmd cc "/contacts" >>= \case
-                CRContactsList _ cts -> do
+                CRContactsList _ cts -> void . forkIO $ do
                   let cts' = filter broadcastTo cts
                   forM_ cts' $ \ct' -> sendComposedMessage cc ct' Nothing mc
                   sendReply $ "Forwarded to " <> show (length cts') <> " contact(s)"

src/Simplex/Chat.hs

@@ -105,7 +105,6 @@ defaultChatConfig =
       fileChunkSize = 15780, -- do not change
       inlineFiles = defaultInlineFilesConfig,
       logLevel = CLLImportant,
-      subscriptionConcurrency = 16,
       subscriptionEvents = False,
       hostEvents = False,
       testView = False,

src/Simplex/Chat/Controller.hs

@@ -105,7 +105,6 @@ data ChatConfig = ChatConfig
     tbqSize :: Natural,
     fileChunkSize :: Integer,
     inlineFiles :: InlineFilesConfig,
-    subscriptionConcurrency :: Int,
     subscriptionEvents :: Bool,
     hostEvents :: Bool,
     logLevel :: ChatLogLevel,

src/Simplex/Chat/Mobile.hs

@@ -135,7 +135,7 @@ mobileChatOpts dbFilePrefix dbKey =
             logConnections = False,
             logServerHosts = True,
             logAgent = False,
-            tbqSize = 64
+            tbqSize = 1024
           },
       chatCmd = "",
       chatCmdDelay = 3,

src/Simplex/Chat/Options.hs

@@ -132,7 +132,7 @@ coreChatOptsP appDir defaultDbFileName = do
           <> short 'q'
           <> metavar "SIZE"
           <> help "Internal queue size"
-          <> value 64
+          <> value 1024
           <> showDefault
       )
   pure