cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Postpone the execution of the query that displays locale options

Browse source 
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Danjela Lura 2020-08-14 18:00:10 +02:00 • committed by Christopher Baines
parent 7984179f5e
commit 599c621b88
1 changed files with 19 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
guix-data-service/web/revision/controller.scm
View file

@ -552,13 +552,12 @@
`("Revision " (samp ,commit-hash))) `("Revision " (samp ,commit-hash)))
(header-link (header-link
(string-append "/revision/" commit-hash))) (string-append "/revision/" commit-hash)))
(define description-and-synopsis-locale-options (define (description-and-synopsis-locale-options locale-data)
(map (map
(match-lambda (match-lambda
((locale) ((locale)
locale)) locale))
(package-description-and-synopsis-locale-options-guix-revision locale-data))
conn (commit->revision-id conn commit-hash))))
(if (any-invalid-query-parameters? query-parameters) (if (any-invalid-query-parameters? query-parameters)
(case (most-appropriate-mime-type (case (most-appropriate-mime-type
@ -650,18 +649,23 @@
packages)))) packages))))
#:extra-headers http-headers-for-unchanging-content)) #:extra-headers http-headers-for-unchanging-content))
(else (else
(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 (render-html
#:sxml (view-revision-packages commit-hash #:sxml (view-revision-packages commit-hash
query-parameters query-parameters
packages packages
git-repositories git-repositories
show-next-page? show-next-page?
description-and-synopsis-locale-options locale-options
any-translations? any-translations?
#:path-base path-base #:path-base path-base
#:header-text header-text #:header-text header-text
#:header-link header-link) #:header-link header-link)
#:extra-headers http-headers-for-unchanging-content)))))) #:extra-headers http-headers-for-unchanging-content)))))))
(define* (render-revision-packages-translation-availability mime-types (define* (render-revision-packages-translation-availability mime-types
conn conn