[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: Postpone the execution of the query that displays
From: |
Christopher Baines |
Subject: |
branch master updated: Postpone the execution of the query that displays locale options |
Date: |
Fri, 14 Aug 2020 17:17:32 -0400 |
This is an automated email from the git hooks/post-receive script.
cbaines pushed a commit to branch master
in repository data-service.
The following commit(s) were added to refs/heads/master by this push:
new 599c621 Postpone the execution of the query that displays locale
options
599c621 is described below
commit 599c621b88c39e7d7e68912841fd2209bebf2d12
Author: Danjela Lura <danielaluraa@gmail.com>
AuthorDate: Fri Aug 14 18:00:10 2020 +0200
Postpone the execution of the query that displays locale options
Signed-off-by: Christopher Baines <mail@cbaines.net>
---
guix-data-service/web/revision/controller.scm | 34 +++++++++++++++------------
1 file changed, 19 insertions(+), 15 deletions(-)
diff --git a/guix-data-service/web/revision/controller.scm
b/guix-data-service/web/revision/controller.scm
index ceb8d1d..8338a00 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -552,13 +552,12 @@
`("Revision " (samp ,commit-hash)))
(header-link
(string-append "/revision/" commit-hash)))
- (define description-and-synopsis-locale-options
+ (define (description-and-synopsis-locale-options locale-data)
(map
(match-lambda
((locale)
locale))
- (package-description-and-synopsis-locale-options-guix-revision
- conn (commit->revision-id conn commit-hash))))
+ locale-data))
(if (any-invalid-query-parameters? query-parameters)
(case (most-appropriate-mime-type
@@ -650,18 +649,23 @@
packages))))
#:extra-headers http-headers-for-unchanging-content))
(else
- (render-html
- #:sxml (view-revision-packages commit-hash
- query-parameters
- packages
- git-repositories
- show-next-page?
-
description-and-synopsis-locale-options
- any-translations?
- #:path-base path-base
- #:header-text header-text
- #:header-link header-link)
- #:extra-headers http-headers-for-unchanging-content))))))
+ (let ((locale-options
+ (description-and-synopsis-locale-options
+
(package-description-and-synopsis-locale-options-guix-revision
+ conn
+ (commit->revision-id conn commit-hash)))))
+ (render-html
+ #:sxml (view-revision-packages commit-hash
+ query-parameters
+ packages
+ git-repositories
+ show-next-page?
+ locale-options
+ any-translations?
+ #:path-base path-base
+ #:header-text header-text
+ #:header-link header-link)
+ #:extra-headers http-headers-for-unchanging-content)))))))
(define* (render-revision-packages-translation-availability mime-types
conn
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: Postpone the execution of the query that displays locale options,
Christopher Baines <=