reduce transaction retry back-off factor to 1.125 (#137)

2026-03-30 20:45:52 +00:00 · 2021-05-10 14:24:08 +04:00
parent 8ac47b9bbf
commit f7f419224f
1 changed files with 1 additions and 1 deletions
--- a/src/Simplex/Messaging/Agent/Store/SQLite.hs
+++ b/src/Simplex/Messaging/Agent/Store/SQLite.hs
@@ -104,7 +104,7 @@ withTransaction db a = loop 100 100_000
        if tLim > t && DB.sqlError e == DB.ErrorBusy
          then do
            threadDelay t
-            loop (t * 5 `div` 4) (tLim - t)
+            loop (t * 9 `div` 8) (tLim - t)
          else E.throwIO e

 instance (MonadUnliftIO m, MonadError StoreError m) => MonadAgentStore SQLiteStore m where