diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-02 10:57:14 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-02 11:48:24 +0200 |
| commit | 223ede4e156acf9fa9ae52e81007e3c4356c4cf4 (patch) | |
| tree | b0c064d25ce221618a44d994c61ebc57267275df | |
| parent | 0f4be78fef122aad86f039b5e21d11a232e7cd88 (diff) | |
| download | patches-223ede4e156acf9fa9ae52e81007e3c4356c4cf4.tar patches-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'.
| -rw-r--r-- | gnu/services.scm | 5 |
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)))))) |