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

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

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