diff mbox series

[bug#74265] guix: packages: Fix building development profiles.

Message ID 20241108144504.5263-2-pjals@privacyrequired.com
State New
Headers show
Series [bug#74265] guix: packages: Fix building development profiles. | expand

Commit Message

guix-patches--- via Nov. 8, 2024, 2:44 p.m. UTC
From: "Daniel [REDACTED]" <pjals@privacyrequired.com>

* guix/packages.scm (bag-transitive-inputs): Set %current-target-system while
finding bag transitive inputs.

Change-Id: If33a0fc2bf038e09819c87f535c27dfe5e873973
---
 guix/packages.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)


base-commit: 2a6d96425eea57dc6dd48a2bec16743046e32e06

Comments

Ludovic Courtès Nov. 12, 2024, 10:44 p.m. UTC | #1
Hi,

pjals@privacyrequired.com skribis:

> From: "Daniel [REDACTED]" <pjals@privacyrequired.com>
>
> * guix/packages.scm (bag-transitive-inputs): Set %current-target-system while
> finding bag transitive inputs.
>
> Change-Id: If33a0fc2bf038e09819c87f535c27dfe5e873973

Could you add a test that illustrates what this change fixes?

From a cursory look, it’s not clear to me what the motivation is.

Thanks,
Ludo’.
diff mbox series

Patch

diff --git a/guix/packages.scm b/guix/packages.scm
index f373136d22..40d5e7b1d5 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -1443,12 +1443,6 @@  (define (bag-direct-inputs bag)
           (bag-host-inputs bag)
           (bag-target-inputs bag)))
 
-(define (bag-transitive-inputs bag)
-  "Same as 'package-transitive-inputs', but applied to a bag."
-  (parameterize ((%current-target-system #f)
-                 (%current-system (bag-system bag)))
-    (transitive-inputs (bag-direct-inputs bag))))
-
 (define (bag-transitive-build-inputs bag)
   "Same as 'package-transitive-native-inputs', but applied to a bag."
   (parameterize ((%current-target-system #f)
@@ -1467,6 +1461,12 @@  (define (bag-transitive-target-inputs bag)
                  (%current-system (bag-system bag)))
     (transitive-inputs (bag-target-inputs bag))))
 
+(define (bag-transitive-inputs bag)
+  "Same as 'package-transitive-inputs', but applied to a bag."
+  (append (bag-transitive-build-inputs bag)
+          (bag-transitive-host-inputs bag)
+          (bag-transitive-target-inputs bag)))
+
 (define* (package-development-inputs package
                                      #:optional (system (%current-system))
                                      #:key target)