cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add some time logging in to inferior-packages-plus-replacements

Browse source
This commit is contained in:
Christopher Baines 2024-01-28 09:10:01 +00:00
parent 0f7b31c605
commit ba97ade781
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

24
guix-data-service/jobs/load-new-guix-revision.scm
View file

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