diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-28 09:10:01 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-28 09:10:01 +0000 |
| commit | ba97ade781d2adf201d3fe896f945fa406716e8f (patch) | |
| tree | ad2fe7e650d24209a514994a1f53c24108afa493 /guix-data-service | |
| parent | 0f7b31c605150eeca14c10d8c14913a1318e9506 (diff) | |
| download | data-service-ba97ade781d2adf201d3fe896f945fa406716e8f.tar data-service-ba97ade781d2adf201d3fe896f945fa406716e8f.tar.gz | |
Add some time logging in to inferior-packages-plus-replacements
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 24 |
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))) |