diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-25 16:44:20 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-25 16:44:20 +0100 |
| commit | a36ec507038370c615e9fe9489c2bc920e3a878f (patch) | |
| tree | 703e286af23855895c4756f21259db01447621a5 /guix-build-coordinator/client-communication.scm | |
| parent | f8460c36a923e7be8e9d1f680a14d50d2b28fdcf (diff) | |
| download | build-coordinator-a36ec507038370c615e9fe9489c2bc920e3a878f.tar build-coordinator-a36ec507038370c615e9fe9489c2bc920e3a878f.tar.gz | |
Reduce and cap the number of builds you can list at once
As I think listing 1000 is causing long reads that block wal checkpointing.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 829470a..b78ffe6 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -413,8 +413,11 @@ #:limit (or (and=> (assq-ref query-parameters 'limit) (lambda (val) - (string->number val))) - 1000))))))))) + ;; Don't allow a high limit, as that could + ;; cause the query to run for a long time + (min (string->number val) + 100))) + 100))))))))) (('POST "builds") (let ((derivation-file (assoc-ref body "derivation")) (substitute-urls @@ -735,7 +738,7 @@ (priority-< 'unset) (relationship 'unset) (after-id #f) - (limit 1000)) + (limit 100)) (let ((query-parameters `(,@(if (null? tags) '() |