From ba97ade781d2adf201d3fe896f945fa406716e8f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 28 Jan 2024 09:10:01 +0000 Subject: 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))) -- cgit v1.2.3