summaryrefslogtreecommitdiff
path: root/guix/scripts/system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-02 10:58:38 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-02 11:48:24 +0200
commit2ad6eb0568ed69127aea987c009138e03b5b8954 (patch)
tree79f6edcfa54eadba6342548ec8a468f490dd44dd /guix/scripts/system.scm
parent223ede4e156acf9fa9ae52e81007e3c4356c4cf4 (diff)
guix system: Use 'mapm/accumulate-builds'.
* guix/scripts/system.scm (perform-action): Use 'mapm/accumulate-builds' instead of 'mapm'.
Diffstat (limited to 'guix/scripts/system.scm')
-rw-r--r--guix/scripts/system.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a178761203..4937e68115 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -825,10 +825,10 @@ static checks."
;; For 'init' and 'reconfigure', always build BOOTCFG, even if
;; --no-bootloader is passed, because we then use it as a GC root.
;; See <http://bugs.gnu.org/21068>.
- (drvs (mapm %store-monad lower-object
- (if (memq action '(init reconfigure))
- (list sys bootcfg)
- (list sys))))
+ (drvs (mapm/accumulate-builds lower-object
+ (if (memq action '(init reconfigure))
+ (list sys bootcfg)
+ (list sys))))
(% (if derivations-only?
(return (for-each (compose println derivation-file-name)
drvs))