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

Log the time to call inferior-packages-plus-replacements

Browse source 
As I think this is currently quite slow.
This commit is contained in:
Christopher Baines 2024-01-27 18:40:01 +00:00
parent e51d2f8932
commit 062ee1aed2
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -716,7 +716,8 @@
(define (ensure-gds-inferior-packages-defined! inf)
(unless (inferior-eval '(defined? 'gds-inferior-packages) inf)
(inferior-packages-plus-replacements inf)))
(with-time-logging "ensuring gds-inferior-packages is defined in inferior"
(inferior-packages-plus-replacements inf))))
(define* (all-inferior-packages-data inf packages pkg-to-replacement-hash-table)
(define inferior-package-id->packages-index-hash-table