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
;; 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)))