Just give SQLite3 a long time to spin before it gives up

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)"