diff options
author | Christopher Baines <mail@cbaines.net> | 2019-12-14 17:10:23 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-12-14 17:10:23 +0000 |
commit | 9dddf2c606bd3bcfa4bd7881cb999099ae013dad (patch) | |
tree | 7f29b4018c474fc6c604cb198e5be89fa5f180f9 /guix-data-service/web/revision | |
parent | 4cc678dfb190702e190e77bec61214665119708f (diff) | |
download | data-service-9dddf2c606bd3bcfa4bd7881cb999099ae013dad.tar data-service-9dddf2c606bd3bcfa4bd7881cb999099ae013dad.tar.gz |
Implement the reproducibility status filter
On the derivation-outputs page.
Diffstat (limited to 'guix-data-service/web/revision')
-rw-r--r-- | guix-data-service/web/revision/controller.scm | 4 | ||||
-rw-r--r-- | guix-data-service/web/revision/html.scm | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index eb789e8..823dcec 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -170,6 +170,8 @@ (parse-query-parameters request `((after_path ,identity) + (reproducibility_status ,identity + #:default "any") (limit_results ,parse-result-limit #:no-default-when (all_results) #:default 100) @@ -620,6 +622,8 @@ (select-derivation-outputs-in-revision conn commit-hash + #:reproducibility-status + (assq-ref query-parameters 'reproducibility_status) #:limit-results limit-results #:after-path (assq-ref query-parameters 'after_path))) (show-next-page? diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 5e601bf..7228100 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -801,6 +801,7 @@ "List packages where the derivation output path matches this query.") ,(form-horizontal-control "Reproducibility status" query-parameters + #:allow-selecting-multiple-options #f #:options '(("Any" . "any") ("Unknown" . "unknown") ("Reproducible" . "reproducible") |