diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-09-03 13:38:56 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-09-03 13:38:56 +0100 |
| commit | d73d20c985645a3c7b1998b16175d37c41a85056 (patch) | |
| tree | d9383eb45839111ad7e5b4a34e31d3a7d36be588 /guix-data-service/web | |
| parent | fd7b0a341d697c081644855bd6efdc1354c8475f (diff) | |
| download | data-service-d73d20c985645a3c7b1998b16175d37c41a85056.tar data-service-d73d20c985645a3c7b1998b16175d37c41a85056.tar.gz | |
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.
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/build-server/controller.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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)))))) |