packages: Apply target triplet in bag-transitive-host-inputs.

Fixes a bug where propagated inputs that should be cross-compiled are instead
compiled for the host system.

* guix/packages.scm (bag-transitive-host-inputs): Call transitive-inputs in
  the context of the bag's target system triplet.
This commit is contained in:
David Thompson 2019-08-01 08:46:13 -04:00
parent e85bb00c55
commit 6cef554be8
No known key found for this signature in database
GPG Key ID: 8328C7470FF1D807
1 changed files with 2 additions and 1 deletions

View File

@ -796,7 +796,8 @@ dependencies are known to build on SYSTEM."
(define (bag-transitive-host-inputs bag) (define (bag-transitive-host-inputs bag)
"Same as 'package-transitive-target-inputs', but applied to a bag." "Same as 'package-transitive-target-inputs', but applied to a bag."
(transitive-inputs (bag-host-inputs bag))) (parameterize ((%current-target-system (bag-target bag)))
(transitive-inputs (bag-host-inputs bag))))
(define (bag-transitive-target-inputs bag) (define (bag-transitive-target-inputs bag)
"Return the \"target inputs\" of BAG, recursively." "Return the \"target inputs\" of BAG, recursively."