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 | |
| 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')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 6 | ||||
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 13 |
2 files changed, 19 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 diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 7b6fd05..f6366a1 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -987,6 +987,7 @@ figure { query-parameters derivation-outputs build-server-urls + valid-systems show-next-page? #:key (path-base "/revision/") header-text @@ -1028,6 +1029,18 @@ figure { ("Unreproducible" . "unreproducible")) #:help-text "Do the known hashes for this output suggest it's reproducible, or not reproducible.") ,(form-horizontal-control + "System" query-parameters + #:options valid-systems + #:allow-selecting-multiple-options #f + #:help-text "Only include derivations for this system." + #:font-family "monospace") + ,(form-horizontal-control + "Target" query-parameters + #:options valid-systems + #:allow-selecting-multiple-options #f + #:help-text "Only include derivations that are build for this system." + #:font-family "monospace") + ,(form-horizontal-control "After path" query-parameters #:help-text "List packages that are alphabetically after the given name.") |