diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index f2a5dfe..3178e83 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -1793,12 +1793,13 @@ INNER JOIN derivation_source_files derivation-file-names) (let ((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))))) + (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)))))) (unless (null? missing-derivations) (insert-missing-derivations conn