From 98a8666a0cbf33e24efff615243b98144a92c950 Mon Sep 17 00:00:00 2001 Message-ID: <98a8666a0cbf33e24efff615243b98144a92c950.1693047369.git.iyzsong@member.fsf.org> From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Sat, 26 Aug 2023 18:27:09 +0800 Subject: [PATCH] packages: Don't propagate inputs for non-development package outputs. * guix/packages.scm (transitive-inputs): Only include propagated inputs from a package for its "dev" output, or its "out" output if the package doesn't have a "dev" one. --- guix/packages.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/guix/packages.scm b/guix/packages.scm index ba98bb0fb4..435d55de71 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -1143,7 +1143,13 @@ (define (transitive-inputs inputs) (loop rest result propagated first? seen) (loop rest (cons input result) - (cons (package-propagated-inputs package) propagated) + ;; Only add propagated inputs for PACKAGE:dev, or PACKAGE:out + ;; when PACKAGE doesn't have a "dev" output. + (if (if (member "dev" (package-outputs package)) + (member "dev" outputs) + (or (null? outputs) (member "out" outputs))) + (cons (package-propagated-inputs package) propagated) + propagated) first? (vhash-consq package outputs seen)))) ((input rest ...) base-commit: eeb71d778f149834015858467fbeeb1276d96d1d -- 2.41.0