cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clarify that the derivations comparison only is for packages

Browse source 
As it excludes the channel instances and system tests.
This commit is contained in:
Christopher Baines 2020-10-09 19:31:21 +01:00
parent 853aaa6a7c
commit 51204aefca
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/web/compare/controller.scm
View file

@ -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

4
guix-data-service/web/compare/html.scm
View file

@ -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"))