From 7874e9e047219cce5ae339e57cd76f158bc19f63 Mon Sep 17 00:00:00 2001
From: Chris Marusich <cmmarusich@gmail.com>
Date: Thu, 29 Mar 2018 08:33:13 +0200
Subject: 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.
---
 gnu/services.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gnu/services.scm')

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 @@ (define boot-service-type
                 (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 @@ (define activation-service-type
                 (extensions
                  (list (service-extension boot-service-type
                                           gexps->activation-gexp)))
-                (compose append)
+                (compose identity)
                 (extend second-argument)))
 
 (define %activation-service
-- 
cgit v1.2.3