06/07: services: hurd: Use cons as extend method.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit c77ff4ca0c6e4e84f36f45a45ffc95230f63dc3b
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sat Apr 25 12:42:31 2020 +0200

    services: hurd: Use cons as extend method.
    
    * gnu/services/hurd.scm (hurd-file-systems-service-type,
    hurd-user-processes-service-type, hurd-console-service-type,
    hurd-loopback-service-type, hurd-ttys-service-type): Use CONS for extend 
(was:
    APPEND).
---
 gnu/services/hurd.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index 2bbb171..db06909 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -108,7 +108,7 @@ fi\n")))
    (extensions (list (service-extension shepherd-root-service-type
                                         hurd-file-systems-shepherd-service)))
    (compose concatenate)
-   (extend append)
+   (extend cons)
    (default-value '(file-systems)) ;canary for hurd-service->shepherd-service
    (description "Dummy service to bootstrap (gnu services) on the
 Hurd.")))
@@ -159,7 +159,7 @@ Hurd.")))
    (extensions (list (service-extension shepherd-root-service-type
                                         hurd-user-processes-shepherd-service)))
    (compose concatenate)
-   (extend append)
+   (extend cons)
    (default-value '(user-processes)) ;canary for hurd-service->shepherd-service
    (description "Dummy service to bootstrap (gnu services) on the
 Hurd.")))
@@ -202,7 +202,7 @@ Hurd.")))
     (list (service-extension shepherd-root-service-type
                              hurd-console-shepherd-service)))
    (compose concatenate)
-   (extend  append)
+   (extend cons)
    (default-value (hurd-console-configuration))))
 
 
@@ -227,7 +227,7 @@ Hurd.")))
    (extensions (list (service-extension shepherd-root-service-type
                                         hurd-loopback-shepherd-service)))
    (compose concatenate)
-   (extend append)
+   (extend cons)
    (default-value '(loopback)) ;canary for hurd-service->shepherd-service
    (description "Dummy service to bootstrap (gnu services) on the
 Hurd.")))
@@ -266,7 +266,7 @@ Hurd.")))
     (list (service-extension shepherd-root-service-type
                              hurd-ttys-shepherd-service)))
    (compose concatenate)
-   (extend  append)
+   (extend cons)
    (default-value (hurd-ttys-configuration))))