diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-10-03 20:15:56 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-10-03 20:15:56 +0100 |
| commit | a40a8f0f92370c560517130dc50fedee56629b00 (patch) | |
| tree | 201b8d3b7dc6a04891db0cc277a67e500dfcaa6c | |
| parent | 427063c812e77885e5728aa5a8f4ee27f11bd2b0 (diff) | |
| download | data-service-a40a8f0f92370c560517130dc50fedee56629b00.tar data-service-a40a8f0f92370c560517130dc50fedee56629b00.tar.gz | |
Rename render-revision-package to render-revision-package-version
As this name is more specific.
| -rw-r--r-- | guix-data-service/web/controller.scm | 60 |
1 files changed, 30 insertions, 30 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 0f68969..71ca560 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -278,18 +278,18 @@ #:header-link header-link) #:extra-headers http-headers-for-unchanging-content)))))) -(define* (render-revision-package mime-types - conn - commit-hash - name - version - #:key - (header-text - `("Revision " - (samp ,commit-hash))) - (header-link - (string-append - "/revision/" commit-hash))) +(define* (render-revision-package-version mime-types + conn + commit-hash + name + version + #:key + (header-text + `("Revision " + (samp ,commit-hash))) + (header-link + (string-append + "/revision/" commit-hash))) (let ((metadata (select-package-metadata-by-revision-name-and-version conn @@ -813,11 +813,11 @@ commit-hash))) (('GET "revision" commit-hash "package" name version) (if (guix-commit-exists? conn commit-hash) - (render-revision-package mime-types - conn - commit-hash - name - version) + (render-revision-package-version mime-types + conn + commit-hash + name + version) (render-unknown-revision mime-types conn commit-hash))) @@ -1001,19 +1001,19 @@ (let ((commit-hash (latest-processed-commit-for-branch conn repository-id branch-name))) (if commit-hash - (render-revision-package mime-types - conn - commit-hash - name - version - #:header-text - `("Latest processed revision for branch " - (samp ,branch-name)) - #:header-link - (string-append - "/repository/" repository-id - "/branch/" branch-name - "/latest-processed-revision")) + (render-revision-package-version mime-types + conn + commit-hash + name + version + #:header-text + `("Latest processed revision for branch " + (samp ,branch-name)) + #:header-link + (string-append + "/repository/" repository-id + "/branch/" branch-name + "/latest-processed-revision")) (render-unknown-revision mime-types conn commit-hash)))) |