aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-02 10:57:14 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-02 11:48:24 +0200
commit223ede4e156acf9fa9ae52e81007e3c4356c4cf4 (patch)
treeb0c064d25ce221618a44d994c61ebc57267275df /gnu
parent0f4be78fef122aad86f039b5e21d11a232e7cd88 (diff)
downloadguix-223ede4e156acf9fa9ae52e81007e3c4356c4cf4.tar
guix-223ede4e156acf9fa9ae52e81007e3c4356c4cf4.tar.gz
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'.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/services.scm b/gnu/services.scm
index e7a3a95e43..7941cd3af0 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 <ludo@gnu.org>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com>
;;;
;;; 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))))))