dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-08-28 02:54:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

optionally switch database to delete mode when checkpointing

Browse Source
This commit is contained in:
Evgeny Poberezkin
2023-09-28 14:56:08 +01:00
parent 8e520b17d4
commit 3d63e7507c
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Agent/Store/SQLite.hs
+5 -3
View File
@@ -430,9 +430,11 @@ openSQLiteStore SQLiteStore {dbConnection, dbFilePath, dbClosed} key =
putTMVar dbConnection DB.Connection {conn, slow}
writeTVar dbClosed False
checkpointSQLiteStore :: SQLiteStore -> IO ()
checkpointSQLiteStore st =
withConnection st (`execSQL_` "PRAGMA wal_checkpoint(TRUNCATE);")
checkpointSQLiteStore :: SQLiteStore -> Bool -> IO ()
checkpointSQLiteStore st jmDelete =
withConnection st $ \db -> do
execSQL_ db "PRAGMA wal_checkpoint(TRUNCATE);"
when jmDelete $ execSQL_ db "PRAGMA journal_mode = DELETE;"
sqlString :: String -> Text
sqlString s = quote <> T.replace quote "''" (T.pack s) <> quote