Log more timing infromation about inserting derivations

1 files changed, 15 insertions, 9 deletions

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index d5170b8..2ac5ede 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -905,15 +905,21 @@
      (let* ((system-and-target (car data))
             (derivations-vector (cdr data))
             (derivation-ids
-             (derivation-file-names->derivation-ids
-              conn
-              derivations-vector)))
-
-       (insert-package-derivations conn
-                                   (car system-and-target)
-                                   (or (cdr system-and-target) "")
-                                   package-ids
-                                   derivation-ids)))
+             (with-time-logging
+                 (simple-format #f "derivation-file-names->derivation-ids (~A)"
+                                system-and-target)
+               (derivation-file-names->derivation-ids
+                conn
+                derivations-vector))))
+
+       (with-time-logging
+           (simple-format #f "insert-package-derivations (~A)"
+                          system-and-target)
+         (insert-package-derivations conn
+                                     (car system-and-target)
+                                     (or (cdr system-and-target) "")
+                                     package-ids
+                                     derivation-ids))))
    inferior-packages-system-and-target-to-derivations-alist))
 
 (define guix-store-path