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

Split up handling of package description data

Browse source 
To hopefully see which part is slow.
This commit is contained in:
Christopher Baines 2024-01-31 20:20:48 +01:00
parent 9779ecf3cd
commit d5e663cc1e
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
guix-data-service/model/package-metadata.scm
View file

@ -368,12 +368,8 @@ WHERE packages.id IN (
(((id)) id)))) (((id)) id))))
(define (package-description-data->package-description-set-id (define (package-description-data->package-description-set-id
conn descriptions-by-locale) conn package-description-ids)
(let* ((package-description-ids (let* ((package-description-set-id
(package-description-data->package-description-ids
conn
descriptions-by-locale))
(package-description-set-id
(exec-query (exec-query
conn conn
(string-append (string-append
@ -418,12 +414,17 @@ WHERE packages.id IN (
package-metadata)) package-metadata))
license-set-ids license-set-ids
(with-time-logging "preparing package description set ids" (with-time-logging "preparing package description set ids"
(map (match-lambda (map (lambda (package-description-ids)
((_ _ package-description-data _) (package-description-data->package-description-set-id
(package-description-data->package-description-set-id conn
conn package-description-ids))
package-description-data))) (with-time-logging "preparing package description ids"
package-metadata)) (map (match-lambda
((_ _ package-description-data _)
(package-description-data->package-description-ids
conn
package-description-data)))
package-metadata))))
(with-time-logging "preparing package synopsis set ids" (with-time-logging "preparing package synopsis set ids"
(map (match-lambda (map (match-lambda
((_ _ _ package-synopsis-data) ((_ _ _ package-synopsis-data)