From af0a06d1476a14da4d36e438b284840ed8552d44 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 3 Oct 2021 12:59:26 +0100 Subject: [PATCH] Log the time to read missing derivations from the store --- guix-data-service/model/derivation.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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