02/06: Rename render-revision-derivation-outputs

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit e4cb3a815a62349685c6ec695f6d7b75eb468d19
Author: Christopher Baines <address@hidden>
AuthorDate: Sun May 3 19:59:34 2020 +0100

    Rename render-revision-derivation-outputs
    
    To mention that this is just for package derivations.
---
 guix-data-service/web/revision/controller.scm | 31 ++++++++++++++-------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/guix-data-service/web/revision/controller.scm 
b/guix-data-service/web/revision/controller.scm
index c48da0f..3ac7cdc 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -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)