06/14: Add some time logging in to inferior-packages-plus-replacements

[Christopher Baines]

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

commit ba97ade781d2adf201d3fe896f945fa406716e8f
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Jan 28 09:10:01 2024 +0000

    Add some time logging in to inferior-packages-plus-replacements
---
 guix-data-service/jobs/load-new-guix-revision.scm | 24 +++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index 141ebdd..82ad400 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -649,10 +649,13 @@
   (let* ((packages
           ;; The use of force in (guix inferior) introduces a continuation
           ;; barrier
-          (call-with-temporary-thread
-           (lambda ()
-             (inferior-packages inf))))
-         (replacements (map inferior-package-replacement packages))
+          (with-time-logging "calling inferior-packages"
+            (call-with-temporary-thread
+             (lambda ()
+               (inferior-packages inf)))))
+         (replacements
+          (with-time-logging "getting inferior package replacements"
+            (map inferior-package-replacement packages)))
          (pkg-to-replacement-hash-table
           (let ((ht (make-hash-table)))
             (for-each
@@ -685,12 +688,13 @@
           ;; same name and version, but different derivations.  Guix will warn
           ;; about this case though, generally this means only one of the
           ;; packages should be exported.
-          (call-with-temporary-thread
-           (lambda ()
-             ;; TODO Sort introduces a continuation barrier
-             (sort-and-deduplicate-inferior-packages
-              (append! packages non-exported-replacements)
-              pkg-to-replacement-hash-table))))
+          (with-time-logging "deduplicating inferior packages"
+            (call-with-temporary-thread
+             (lambda ()
+               ;; TODO Sort introduces a continuation barrier
+               (sort-and-deduplicate-inferior-packages
+                (append! packages non-exported-replacements)
+                pkg-to-replacement-hash-table)))))
 
          (deduplicated-packages-length
           (length deduplicated-packages)))