increase database transaction timeout, add test for user deletion (#622)

* increase database transaction timeout, add test for user deletion

* more test logs
This commit is contained in:
Evgeny Poberezkin
2023-01-25 20:58:03 +00:00
committed by GitHub
parent ff038b492c
commit 7fb48930f6
2 changed files with 35 additions and 6 deletions
+1 -1
View File
@@ -296,7 +296,7 @@ withConnection SQLiteStore {dbConnection} =
(atomically . putTMVar dbConnection)
withTransaction :: forall a. SQLiteStore -> (DB.Connection -> IO a) -> IO a
withTransaction st action = withConnection st $ loop 500 2_000_000
withTransaction st action = withConnection st $ loop 500 3_000_000
where
loop :: Int -> Int -> DB.Connection -> IO a
loop t tLim db =