diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-27 18:40:01 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-27 18:40:01 +0000 |
| commit | 062ee1aed2024a8f88c3c2485b1a292f629e72e5 (patch) | |
| tree | f717e4fc2628d58569fbb16867fc8ce4e3807b0f /guix-data-service | |
| parent | e51d2f893231727aca77b0654246ee8631f4c869 (diff) | |
| download | data-service-062ee1aed2024a8f88c3c2485b1a292f629e72e5.tar data-service-062ee1aed2024a8f88c3c2485b1a292f629e72e5.tar.gz | |
Log the time to call inferior-packages-plus-replacements
As I think this is currently quite slow.
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index f6f6964..46f80ab 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -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 |