04/04: Log the time to read missing derivations from the store

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit af0a06d1476a14da4d36e438b284840ed8552d44
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Oct 3 12:59:26 2021 +0100

    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