From 64c03adb95008129d4b4cf9a84ada9ca2b235a69 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 22 Apr 2023 20:07:19 +0100
Subject: Drop the wal checkpointing attempts

In case this helps with performance.
---
 guix-build-coordinator/datastore/sqlite.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index f19b87c..76e4c26 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -327,9 +327,9 @@ PRAGMA optimize;")
                         (retry-count 0))
                (if result
                    #t
-                   (if (< retry-count 30)
+                   (if (< retry-count 2)
                        (begin
-                         (sleep 1)
+                         (sleep 30)
                          (loop (datastore-optimize datastore)
                                (+ 1 retry-count)))
                        (error "unable to perform WAL checkpoint"))))))
-- 
cgit v1.2.3