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

Log the time to read missing derivations from the store

Browse source
This commit is contained in:
Christopher Baines 2021-10-03 12:59:26 +01:00
parent 3627d36d77
commit af0a06d147
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
guix-data-service/model/derivation.scm
View file

@ -1793,12 +1793,13 @@ INNER JOIN derivation_source_files
derivation-file-names) derivation-file-names)
(let ((missing-derivations (let ((missing-derivations
(map read-derivation-from-file (with-time-logging "reading missing derivations"
(deduplicate-strings (map read-derivation-from-file
(filter (lambda (derivation-file-name) (deduplicate-strings
(not (hash-ref derivation-ids-hash-table (filter (lambda (derivation-file-name)
derivation-file-name))) (not (hash-ref derivation-ids-hash-table
derivation-file-names))))) derivation-file-name)))
derivation-file-names))))))
(unless (null? missing-derivations) (unless (null? missing-derivations)
(insert-missing-derivations conn (insert-missing-derivations conn