From d73d20c985645a3c7b1998b16175d37c41a85056 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 3 Sep 2024 13:38:56 +0100 Subject: [PATCH] Timeout when trying to process build events As if they relate to derivations that are currently being inserted, they'll have to wait until the job is processed. --- guix-data-service/web/build-server/controller.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/guix-data-service/web/build-server/controller.scm b/guix-data-service/web/build-server/controller.scm index e759fc8..70ee22e 100644 --- a/guix-data-service/web/build-server/controller.scm +++ b/guix-data-service/web/build-server/controller.scm @@ -20,6 +20,7 @@ #:use-module (ice-9 match) #:use-module (rnrs bytevectors) #:use-module (json) + #:use-module (squee) #:use-module (fibers) #:use-module (prometheus) #:use-module (guix-data-service utils) @@ -218,6 +219,8 @@ (with-postgresql-transaction conn (lambda (conn) + (exec-query conn "SET LOCAL lock_timeout = '5s';") + (handle-derivation-events conn filtered-items))))))