cbaines pushed a commit to branch master
in repository data-service.
commit 9779ecf3cd3b10c9ed2bb94c0b459ddfc2d85467
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Wed Jan 31 12:30:51 2024 +0000
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
