diff options
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) '() |