From 84777fae44d524d0fd33d84e87042e3c5d676bf1 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Fri, 11 Sep 2020 13:05:27 -0400
Subject: [PATCH] Just give SQLite3 a long time to spin before it gives up
---
src/PaymentServer/Persistence.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/PaymentServer/Persistence.hs b/src/PaymentServer/Persistence.hs
index dd30d76..8a9fe6c 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)"
--
GitLab