diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-03 19:59:34 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-03 21:20:22 +0100 |
| commit | e4cb3a815a62349685c6ec695f6d7b75eb468d19 (patch) | |
| tree | 780852af1303b31d8919cd9bab6aabf26fd0eb07 /guix-data-service/web/revision | |
| parent | 6baef6ae25f5718ec0f2ba917628e56e2da8a78a (diff) | |
| download | data-service-e4cb3a815a62349685c6ec695f6d7b75eb468d19.tar data-service-e4cb3a815a62349685c6ec695f6d7b75eb468d19.tar.gz | |
Rename render-revision-derivation-outputs
To mention that this is just for package derivations.
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 31 |
1 files 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) |