08/14: Speed up fetching package replacements

[Christopher Baines]

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

commit 9779ecf3cd3b10c9ed2bb94c0b459ddfc2d85467
Author: Christopher Baines <mail@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