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