diff options
| author | Danjela Lura <danielaluraa@gmail.com> | 2020-08-14 18:00:10 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-08-14 21:55:59 +0100 |
| commit | 599c621b88c39e7d7e68912841fd2209bebf2d12 (patch) | |
| tree | c823784ba03488c74ad6e49f47d0688ff36d6754 /guix-data-service/web | |
| parent | 7984179f5e008ea2627304545c04bb67ddb3990b (diff) | |
| download | data-service-599c621b88c39e7d7e68912841fd2209bebf2d12.tar data-service-599c621b88c39e7d7e68912841fd2209bebf2d12.tar.gz | |
Postpone the execution of the query that displays locale options
Signed-off-by: Christopher Baines <mail@cbaines.net>
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 34 |
1 files 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 |