02/14: Log the time to call inferior-packages-plus-replacements

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 062ee1aed2024a8f88c3c2485b1a292f629e72e5
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Jan 27 18:40:01 2024 +0000

    Log the time to call inferior-packages-plus-replacements
    
    As I think this is currently quite slow.
---
 guix-data-service/jobs/load-new-guix-revision.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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