diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-16 20:29:28 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-16 20:29:28 +0000 |
| commit | 4af643136e121c8158bc41caa5acfbf10d4d35bb (patch) | |
| tree | 66e010d69c9e3ff09b2a3543c1ae0870d6c80c56 /guix-data-service/web/revision/controller.scm | |
| parent | e1d1d372ca648c63650ea4119a565fa3d7bcd73e (diff) | |
| download | data-service-4af643136e121c8158bc41caa5acfbf10d4d35bb.tar data-service-4af643136e121c8158bc41caa5acfbf10d4d35bb.tar.gz | |
Allow filtering by system and target on the derivation-outputs page
So that this can match up with the package reproducibility page.
Diffstat (limited to 'guix-data-service/web/revision/controller.scm')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index d65de15..faf3380 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -200,6 +200,8 @@ `((after_path ,identity) (reproducibility_status ,identity #:default "any") + (system ,parse-system #:default "x86_64-linux") + (target ,parse-system #:default "x86_64-linux") (limit_results ,parse-result-limit #:no-default-when (all_results) #:default 10) @@ -691,6 +693,7 @@ query-parameters '() '() + '() #:path-base path-base #:header-text header-text #:header-link header-link)))) @@ -704,6 +707,8 @@ commit-hash #:reproducibility-status (assq-ref query-parameters 'reproducibility_status) + #:system (assq-ref query-parameters 'system) + #:target (assq-ref query-parameters 'target) #:limit-results limit-results #:after-path (assq-ref query-parameters 'after_path))) (build-server-urls @@ -729,6 +734,7 @@ query-parameters derivation-outputs build-server-urls + (valid-systems conn) show-next-page? #:path-base path-base #:header-text header-text |