guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Rename render-revision-derivation-outputs

Browse source 
To mention that this is just for package derivations.
This commit is contained in:
Christopher Baines 2020-05-03 19:59:34 +01:00
parent 6baef6ae25
commit e4cb3a815a
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
guix-data-service/web/revision/controller.scm
View file

@ -209,11 +209,11 @@
(all_results ,parse-checkbox-value)))
'((limit_results all_results)))))
(render-revision-derivation-outputs mime-types
conn
commit-hash
parsed-query-parameters
#:path-base path))
(render-revision-package-derivation-outputs mime-types
conn
commit-hash
parsed-query-parameters
#:path-base path))
(render-unknown-revision mime-types
conn
commit-hash)))
@ -809,16 +809,17 @@
#:header-text header-text
#:header-link header-link)))))))
(define* (render-revision-derivation-outputs mime-types
conn
commit-hash
query-parameters
#:key
(path-base "/revision/")
(header-text
`("Revision " (samp ,commit-hash)))
(header-link
(string-append "/revision/" commit-hash)))
(define* (render-revision-package-derivation-outputs
mime-types
conn
commit-hash
query-parameters
#:key
(path-base "/revision/")
(header-text
`("Revision " (samp ,commit-hash)))
(header-link
(string-append "/revision/" commit-hash)))
(if (any-invalid-query-parameters? query-parameters)
(case (most-appropriate-mime-type
'(application/json text/html)