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

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