civodul pushed a commit to branch master
in repository guix.
commit 223ede4e156acf9fa9ae52e81007e3c4356c4cf4
Author: Ludovic Courtès <[email protected]>
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 <[email protected]>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès
<[email protected]>
;;; Copyright © 2016 Chris Marusich <[email protected]>
;;;
;;; 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))))))
