summaryrefslogtreecommitdiff
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)
downloadpatches-7874e9e047219cce5ae339e57cd76f158bc19f63.tar
patches-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