04/06: guix system: Use 'mapm/accumulate-builds'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 2ad6eb0568ed69127aea987c009138e03b5b8954
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Apr 2 10:58:38 2020 +0200

    guix system: Use 'mapm/accumulate-builds'.
    
    * guix/scripts/system.scm (perform-action): Use 'mapm/accumulate-builds'
    instead of 'mapm'.
---
 guix/scripts/system.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a178761..4937e68 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))