From a40a8f0f92370c560517130dc50fedee56629b00 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 3 Oct 2019 20:15:56 +0100
Subject: Rename render-revision-package to render-revision-package-version

As this name is more specific.
---
 guix-data-service/web/controller.scm | 60 ++++++++++++++++++------------------
 1 file 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))))
-- 
cgit v1.2.3