Subject: bug#37026: closed (Re: [bug#37026] [PATCH] packages: Apply target triplet in bag-transitive-host-inputs.)

From: [email-masked] (GNU bug Tracking System)
Date: Mon, 26 Aug 2019 13:39:02 +0000

Your bug report

#37026: [PATCH] packages: Apply target triplet in bag-transitive-host-inputs.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
37026: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=37026
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#37026] [PATCH] packages: Apply target triplet in bag-transitive-host-inputs.
From: "Thompson, David" <[email-masked]>
To: Ludovic Courtès <[email-masked]>
Cc: [email-masked]
Date: Mon, 26 Aug 2019 09:38:27 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

On Fri, Aug 23, 2019 at 5:31 PM Ludovic Courtès <[email-masked]> wrote:
> Good catch, please push!

Thanks. Done!

- Dave

Subject: [PATCH] packages: Apply target triplet in bag-transitive-host-inputs.
From: David Thompson <[email-masked]>
To: [email-masked]
Cc: David Thompson <[email-masked]>
Date: Wed, 14 Aug 2019 08:57:55 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

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.
---
 guix/packages.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/packages.scm b/guix/packages.scm
index c94a651f27..143417b861 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -796,7 +796,8 @@ dependencies are known to build on SYSTEM."
 
 (define (bag-transitive-host-inputs 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)
   "Return the \"target inputs\" of BAG, recursively."
-- 
2.17.1