diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-09 19:31:21 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-09 19:31:21 +0100 |
| commit | 51204aefca14a0eb6777f9fb6ee676675c41c49b (patch) | |
| tree | 857f3289574bf444af7587f59579f6bb35fab883 | |
| parent | 853aaa6a7ceac047d6d876459a98ca6b0ecd8df1 (diff) | |
| download | data-service-51204aefca14a0eb6777f9fb6ee676675c41c49b.tar data-service-51204aefca14a0eb6777f9fb6ee676675c41c49b.tar.gz | |
Clarify that the derivations comparison only is for packages
As it excludes the channel instances and system tests.
| -rw-r--r-- | guix-data-service/web/compare/controller.scm | 8 | ||||
| -rw-r--r-- | guix-data-service/web/compare/html.scm | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm index 07b03be..6d7e78b 100644 --- a/guix-data-service/web/compare/controller.scm +++ b/guix-data-service/web/compare/controller.scm @@ -101,7 +101,7 @@ (target_derivation ,parse-derivation #:required))))) (render-compare/derivation mime-types parsed-query-parameters))) - (('GET "compare" "derivations") + (('GET "compare" "package-derivations") (let* ((parsed-query-parameters (parse-query-parameters request @@ -110,8 +110,8 @@ (system ,parse-system #:multi-value) (target ,parse-target #:multi-value) (build_status ,parse-build-status #:multi-value))))) - (render-compare/derivations mime-types - parsed-query-parameters))) + (render-compare/package-derivations mime-types + parsed-query-parameters))) (('GET "compare-by-datetime" "derivations") (let* ((parsed-query-parameters (guard-against-mutually-exclusive-query-parameters @@ -499,7 +499,7 @@ data) #:extra-headers http-headers-for-unchanging-content))))))) -(define (render-compare/derivations mime-types +(define (render-compare/package-derivations mime-types query-parameters) (define (derivations->alist derivations) (map (match-lambda diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm index 8b35290..684ca7e 100644 --- a/guix-data-service/web/compare/html.scm +++ b/guix-data-service/web/compare/html.scm @@ -84,8 +84,8 @@ (href ,(string-append "/compare/packages" query-params))) "Compare packages") (a (@ (class "btn btn-default") - (href ,(string-append "/compare/derivations" query-params))) - "Compare derivations")))) + (href ,(string-append "/compare/package-derivations" query-params))) + "Compare package derivations")))) (div (@ (class "row")) |