From ac6a85af9770fa2e2ac33ac20fbdf91103b32f21 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 14 Feb 2021 08:38:14 +0000
Subject: Speed up the explicit WAL checkpoints

To try and curtail the WAL growth.
---
 guix-build-coordinator/datastore/sqlite.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix-build-coordinator/datastore/sqlite.scm')

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index 72b91ae..887bf2e 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -188,7 +188,7 @@
     (spawn-fiber
      (lambda ()
        (while #t
-         (sleep (* 60 15))              ; 15 minutes
+         (sleep (* 60 2))               ; 2 minutes
          (with-exception-handler
              (lambda (exn)
                (simple-format (current-error-port)
-- 
cgit v1.2.3