diff --git a/src/Simplex/Messaging/Agent/Client.hs b/src/Simplex/Messaging/Agent/Client.hs index d01bc30f9..6afc456cc 100644 --- a/src/Simplex/Messaging/Agent/Client.hs +++ b/src/Simplex/Messaging/Agent/Client.hs @@ -420,7 +420,6 @@ deleteQueue c RcvQueue {server, rcvId, rcvPrivateKey} = withLogSMP c server rcvId "DEL" $ \smp -> deleteSMPQueue smp rcvPrivateKey rcvId --- TODO this is just wrong sendAgentMessage :: forall m. AgentMonad m => AgentClient -> SndQueue -> ByteString -> m () sendAgentMessage c sq@SndQueue {server, sndId, sndPrivateKey} agentMsg = withLogSMP_ c server sndId "SEND " $ \smp -> do diff --git a/src/Simplex/Messaging/Agent/Env/SQLite.hs b/src/Simplex/Messaging/Agent/Env/SQLite.hs index 1dcc117fa..29377da25 100644 --- a/src/Simplex/Messaging/Agent/Env/SQLite.hs +++ b/src/Simplex/Messaging/Agent/Env/SQLite.hs @@ -51,7 +51,7 @@ defaultAgentConfig = smpServers = undefined, -- TODO move it elsewhere? cmdSignAlg = C.SignAlg C.SEd448, connIdBytes = 12, - tbqSize = 16, + tbqSize = 64, dbFile = "smp-agent.db", dbPoolSize = 4, yesToMigrations = False, diff --git a/src/Simplex/Messaging/Client.hs b/src/Simplex/Messaging/Client.hs index 962efa323..1290bfab4 100644 --- a/src/Simplex/Messaging/Client.hs +++ b/src/Simplex/Messaging/Client.hs @@ -107,7 +107,7 @@ data SMPClientConfig = SMPClientConfig smpDefaultConfig :: SMPClientConfig smpDefaultConfig = SMPClientConfig - { qSize = 16, + { qSize = 64, defaultTransport = ("5223", transport @TLS), tcpTimeout = 4_000_000, smpPing = 30_000_000