tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-25 10:31:49 +02:00
Code Activity

services: system: Initial entries are non-monadic.

Browse Source 
* gnu/system.scm (operating-system-directory-base-entries): Return a
regular, non-monadic value.
* gnu/services.scm (system-derivation): Adjust accordingly.
* gnu/system/linux-container.scm (container-essential-services): Likewise.
This commit is contained in:
Ludovic Courtès
2020-04-22 16:22:33 +02:00
parent 45c84c8f6f
commit 0e5c2d5e14
3 changed files with 8 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/services.scm
+2 -3
View File
@@ -318,11 +318,10 @@ This is a shorthand for (map (lambda (svc) ...) %base-services)."
;;; Core services.
;;;
(define (system-derivation mentries mextensions)
(define (system-derivation entries mextensions)
"Return as a monadic value the derivation of the 'system' directory
containing the given entries."
(mlet %store-monad ((entries mentries)
(extensions (mapm/accumulate-builds identity
(mlet %store-monad ((extensions (mapm/accumulate-builds identity
mextensions)))
(lower-object
(file-union "system"