import/export queues to journal

simplex-chat · Dec 22, 2024 · 1ff0e1a · 1ff0e1a
1 parent 6855711
commit 1ff0e1a
Show file tree

Hide file tree

Showing 3 changed files with 235 additions and 87 deletions.
diff --git a/src/Simplex/Messaging/Server/Env/STM.hs b/src/Simplex/Messaging/Server/Env/STM.hs
@@ -314,7 +314,7 @@ newEnv config@ServerConfig {smpCredentials, httpCredentials, storeLogFile, msgSt
     createMsgStore :: IO AMsgStore
     createMsgStore = case (msgStoreType, storeMsgsFile) of
       (AMSType SMSMemory, _) -> do
-        st <- newMsgStore STMStoreConfig {storePath = storeMsgsFile, quota = msgQueueQuota}
+        st <- newMsgStore STMStoreConfig {storePath = storeLogFile, quota = msgQueueQuota}
         loadStoreLog st $> AMS SMSMemory st
       (AMSType SMSHybrid, Just storePath) -> do
         st <- newMsgStore $ storeCfg SMSHybrid storePath