diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-07 19:36:59 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-12 20:07:22 +0000 |
| commit | 05d295d6f02d5d09c8795e31b89ee0e0251646cf (patch) | |
| tree | 0b325a421f009b74be19b52bb7cdc144f605924c /guix-data-service/web/revision | |
| parent | 544f122ff5de74cd43422787f87898221a5c35ae (diff) | |
| download | data-service-05d295d6f02d5d09c8795e31b89ee0e0251646cf.tar data-service-05d295d6f02d5d09c8795e31b89ee0e0251646cf.tar.gz | |
Fix the all-results/limit handling in the revision derivatinos controller
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 32 |
1 files changed, 22 insertions, 10 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index a8b67a3..f5bb9bc 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -138,14 +138,22 @@ (('GET "revision" commit-hash "derivations") (if (guix-commit-exists? conn commit-hash) (let ((parsed-query-parameters - (parse-query-parameters - request - `((system ,parse-system #:multi-value) - (target ,parse-system #:multi-value) - (maximum_builds ,parse-number) - (minimum_builds ,parse-number) - (after_name ,identity) - (limit_results ,parse-number #:default 100))))) + (guard-against-mutually-exclusive-query-parameters + (parse-query-parameters + request + `((system ,parse-system #:multi-value) + (target ,parse-system #:multi-value) + (maximum_builds ,parse-number) + (minimum_builds ,parse-number) + (after_name ,identity) + (limit_results ,parse-result-limit + #:no-default-when (all_results) + #:default 100) + (all_results ,parse-checkbox-value))) + ;; You can't specify a search query, but then also limit the + ;; results by filtering for after a particular package name + '((after_name search_query) + (limit_results all_results))))) (render-revision-derivations mime-types conn @@ -521,6 +529,8 @@ #:header-link header-link)))) (let* ((limit-results (assq-ref query-parameters 'limit_results)) + (all-results + (assq-ref query-parameters 'all_results)) (derivations (select-derivations-in-revision conn @@ -532,8 +542,10 @@ #:limit-results limit-results #:after-name (assq-ref query-parameters 'after_name))) (show-next-page? - (>= (length derivations) - limit-results))) + (if all-results + #f + (>= (length derivations) + limit-results)))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) |