From 9779ecf3cd3b10c9ed2bb94c0b459ddfc2d85467 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 31 Jan 2024 12:30:51 +0000 Subject: Speed up fetching package replacements --- guix-data-service/jobs/load-new-guix-revision.scm | 12 +++++++++++- 1 file changed, 11 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 9a36a95..7f1e981 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -655,7 +655,17 @@ (inferior-packages inf))))) (replacements (with-time-logging "getting inferior package replacements" - (map inferior-package-replacement packages))) + (map + (lambda (inf-pkg has-replacement?) + (and has-replacement? + (inferior-package-replacement inf-pkg))) + packages + (inferior-eval + `(map (lambda (id) + (->bool (package-replacement + (hash-ref %package-table id)))) + (list ,@(map inferior-package-id packages))) + inf)))) (pkg-to-replacement-hash-table (let ((ht (make-hash-table))) (for-each -- cgit v1.2.3