aboutsummaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-05-14 16:53:42 +0200
committerLudovic Courtès <ludo@gnu.org>2020-05-14 17:21:27 +0200
commit80963744a242257921917df5a901dc343d3a93db (patch)
tree3adcc9e38387470f6dc153363833254015863301 /guix
parentf52fbf7094c9c346d38ad469cc8d92d18387786e (diff)
downloadgnu-guix-80963744a242257921917df5a901dc343d3a93db.tar
gnu-guix-80963744a242257921917df5a901dc343d3a93db.tar.gz
store: 'mapm/accumulate-builds' preserves '%current-target-system'.
Fixes <https://bugs.gnu.org/41182>. * guix/store.scm (mapm/accumulate-builds): Pass #:system and #:target to 'run-with-store'. * tests/store.scm ("mapm/accumulate-builds, %current-target-system"): New test. * tests/guix-pack.sh: Add 'guix pack -d --target' test.
Diffstat (limited to 'guix')
-rw-r--r--guix/store.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 6c7c07fd2d..014d08aaec 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -1899,7 +1899,9 @@ coalesce them into a single call."
(values (map/accumulate-builds store
(lambda (obj)
(run-with-store store
- (mproc obj)))
+ (mproc obj)
+ #:system (%current-system)
+ #:target (%current-target-system)))
lst)
store)))