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

Rename render-revision-package to render-revision-package-version

Browse source 
As this name is more specific.
This commit is contained in:
Christopher Baines 2019-10-03 20:15:56 +01:00
parent 427063c812
commit a40a8f0f92
1 changed files with 30 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

60
guix-data-service/web/controller.scm
View file

@ -278,18 +278,18 @@
#:header-link header-link) #:header-link header-link)
#:extra-headers http-headers-for-unchanging-content)))))) #:extra-headers http-headers-for-unchanging-content))))))
(define* (render-revision-package mime-types (define* (render-revision-package-version mime-types
conn conn
commit-hash commit-hash
name name
version version
#:key #:key
(header-text (header-text
`("Revision " `("Revision "
(samp ,commit-hash))) (samp ,commit-hash)))
(header-link (header-link
(string-append (string-append
"/revision/" commit-hash))) "/revision/" commit-hash)))
(let ((metadata (let ((metadata
(select-package-metadata-by-revision-name-and-version (select-package-metadata-by-revision-name-and-version
conn conn
@ -813,11 +813,11 @@
commit-hash))) commit-hash)))
(('GET "revision" commit-hash "package" name version) (('GET "revision" commit-hash "package" name version)
(if (guix-commit-exists? conn commit-hash) (if (guix-commit-exists? conn commit-hash)
(render-revision-package mime-types (render-revision-package-version mime-types
conn conn
commit-hash commit-hash
name name
version) version)
(render-unknown-revision mime-types (render-unknown-revision mime-types
conn conn
commit-hash))) commit-hash)))
@ -1001,19 +1001,19 @@
(let ((commit-hash (let ((commit-hash
(latest-processed-commit-for-branch conn repository-id branch-name))) (latest-processed-commit-for-branch conn repository-id branch-name)))
(if commit-hash (if commit-hash
(render-revision-package mime-types (render-revision-package-version mime-types
conn conn
commit-hash commit-hash
name name
version version
#:header-text #:header-text
`("Latest processed revision for branch " `("Latest processed revision for branch "
(samp ,branch-name)) (samp ,branch-name))
#:header-link #:header-link
(string-append (string-append
"/repository/" repository-id "/repository/" repository-id
"/branch/" branch-name "/branch/" branch-name
"/latest-processed-revision")) "/latest-processed-revision"))
(render-unknown-revision mime-types (render-unknown-revision mime-types
conn conn
commit-hash)))) commit-hash))))