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

Chunk inserting guix revision package derivation entries

Browse source
This commit is contained in:
Christopher Baines 2022-09-15 16:25:41 +02:00
parent 8ef896b103
commit 35cf9ba1bc
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1537,17 +1537,23 @@ WHERE job_id = $1")
guix-revision-id guix-revision-id
inferior-system-tests)) inferior-system-tests))
(let ((package-derivation-ids (let* ((package-derivation-ids
(with-time-logging "inferior-data->package-derivation-ids" (with-time-logging "inferior-data->package-derivation-ids"
(inferior-data->package-derivation-ids (inferior-data->package-derivation-ids
conn inf inferior-package-id->package-database-id conn inf inferior-package-id->package-database-id
inferior-data-4-tuples)))) inferior-data-4-tuples)))
(insert-guix-revision-package-derivations conn (ids-count
guix-revision-id (length package-derivation-ids)))
package-derivation-ids) (chunk-for-each! (lambda (package-derivation-ids-chunk)
(insert-guix-revision-package-derivations
conn
guix-revision-id
package-derivation-ids-chunk))
2000
package-derivation-ids)
(simple-format (simple-format
#t "Successfully loaded ~A package/derivation pairs\n" #t "Successfully loaded ~A package/derivation pairs\n"
(length package-derivation-ids))))) ids-count))))
#t) #t)
(lambda (key . args) (lambda (key . args)
(simple-format (current-error-port) (simple-format (current-error-port)