summaryrefslogtreecommitdiff
path: root/guix/gexp.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-03-03 12:27:18 +0100
committerLudovic Courtès <ludo@gnu.org>2021-03-03 14:19:25 +0100
commit9fc4e94986e68e0e33b260e2389765e2d3b7dd07 (patch)
tree8875b19b4b310305aac1a2998843d67fc30d3f8c /guix/gexp.scm
parentd9f1752c55a458d80c48192150f68ef37738a91f (diff)
gexp: #:references-graphs refers to non-native derivations.
Fixes a regression introduced in c6d6aee6659acb293eb33f498fdac3b47a19a48, where #:reference-graphs would end up referring to native inputs. This would notably break the compilation of systems using a childhurd, because they would attempt to build the 'hurd' package natively. * guix/gexp.scm (lower-reference-graphs)[tuple->gexp-input]: Honor TARGET. * tests/gexp.scm ("gexp->derivation #:references-graphs cross-compilation"): New test.
Diffstat (limited to 'guix/gexp.scm')
-rw-r--r--guix/gexp.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm
index 8cd44ba534..b72b8f4061 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -875,9 +875,9 @@ corresponding <derivation-input> or store item."
(define tuple->gexp-input
(match-lambda
((thing)
- (%gexp-input thing "out" #t))
+ (%gexp-input thing "out" (not target)))
((thing output)
- (%gexp-input thing output #t))))
+ (%gexp-input thing output (not target)))))
(match graphs
(((file-names . inputs) ...)