summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Marusich <cmmarusich@gmail.com>2018-03-29 08:33:13 +0200
committerChris Marusich <cmmarusich@gmail.com>2018-03-29 08:38:49 +0200
commit7874e9e047219cce5ae339e57cd76f158bc19f63 (patch)
tree8cc0d8a762b043c8601238390ac2b5a73e6c014c
parent881c61d06222a30dbffbf9d039eaca2abd3d22b3 (diff)
downloadguix-7874e9e047219cce5ae339e57cd76f158bc19f63.tar.gz
gnu: Refactor boot-service-type and activation-service-type.
* gnu/services.scm (boot-service-type) <compose>: Use the "identity"
  procedure instead of the "append" procedure because it more accurately
  reflects the intent, which is to simply return the single list of
  extensions to which fold-services applies the "compose" procedure.
  (activation-service-type) <compose>: Likewise.
-rw-r--r--gnu/services.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services.scm b/gnu/services.scm
index b020d971fd..2fcacb9eb4 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -352,7 +352,7 @@ directory."
                 (extensions
                  (list (service-extension system-service-type
                                           boot-script-entry)))
-                (compose append)
+                (compose identity)
                 (extend compute-boot-script)))
 
 (define %boot-service
@@ -457,7 +457,7 @@ ACTIVATION-SCRIPT-TYPE."
                 (extensions
                  (list (service-extension boot-service-type
                                           gexps->activation-gexp)))
-                (compose append)
+                (compose identity)
                 (extend second-argument)))
 
 (define %activation-service