cbaines pushed a commit to branch master
in repository data-service.
commit e4cb3a815a62349685c6ec695f6d7b75eb468d19
Author: Christopher Baines <[email protected]>
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)
