03/06: services: Accumulate builds for 'system' entries.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 223ede4e156acf9fa9ae52e81007e3c4356c4cf4
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Apr 2 10:57:14 2020 +0200

    services: Accumulate builds for 'system' entries.
    
    That way, more build requests are accumulated when running "guix system
    build".
    
    * gnu/services.scm (system-derivation): Use 'mapm/accumulate-builds'
    rather than 'sequence'.
---
 gnu/services.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/services.scm b/gnu/services.scm
index e7a3a95..7941cd3 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <address@hidden>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès 
<address@hidden>
 ;;; Copyright © 2016 Chris Marusich <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -322,7 +322,8 @@ This is a shorthand for (map (lambda (svc) ...) 
%base-services)."
   "Return as a monadic value the derivation of the 'system' directory
 containing the given entries."
   (mlet %store-monad ((entries    mentries)
-                      (extensions (sequence %store-monad mextensions)))
+                      (extensions (mapm/accumulate-builds identity
+                                                          mextensions)))
     (lower-object
      (file-union "system"
                  (append entries (concatenate extensions))))))