diff options
Diffstat (limited to 'guix-data-service/jobs')
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 12 |
1 files changed, 11 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 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 |