diff --git a/src/PaymentServer/Persistence.hs b/src/PaymentServer/Persistence.hs index dd30d76a48c86d19af244d27dc1d929a1b941b7b..8a9fe6c7de2a59ae240b768aeaaa23a3aed1f83d 100644 --- a/src/PaymentServer/Persistence.hs +++ b/src/PaymentServer/Persistence.hs @@ -336,7 +336,7 @@ sqlite path = initialize :: Sqlite.Connection -> IO Sqlite.Connection initialize dbConn = do let exec = Sqlite.execute_ dbConn - exec "PRAGMA busy_timeout = 1000" + exec "PRAGMA busy_timeout = 60000" exec "PRAGMA foreign_keys = ON" Sqlite.withExclusiveTransaction dbConn $ do exec "CREATE TABLE IF NOT EXISTS vouchers (id INTEGER PRIMARY KEY, name TEXT UNIQUE)"