aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/jobs/load-new-guix-revision.scm24
1 files 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)))