01/03: services: Define '%linux-bare-metal-service' using 'simple-service'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 6ddf4fcfaeff8c9c1c6bd43c172ca33fe6d62c73
Author: Ludovic Courtès <address@hidden>
Date:   Wed Apr 12 14:08:33 2017 +0200

    services: Define '%linux-bare-metal-service' using 'simple-service'.
    
    * gnu/services.scm (linux-bare-metal-service-type): Remove.
    (%linux-bare-metal-service): Define in terms of 'simple-service'.
---
 gnu/services.scm | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/gnu/services.scm b/gnu/services.scm
index 6c88f26..9f6e323 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -403,16 +403,13 @@ ACTIVATION-SCRIPT-TYPE."
       ;; Let users debug their own processes!
       (activate-ptrace-attach)))
 
-(define linux-bare-metal-service-type
-  (service-type (name 'linux-bare-metal)
-                (extensions
-                 (list (service-extension activation-service-type
-                                          (const %linux-kernel-activation))))))
-
 (define %linux-bare-metal-service
   ;; The service that does things that are needed on the "bare metal", but not
   ;; necessary or impossible in a container.
-  (service linux-bare-metal-service-type #f))
+  (simple-service 'linux-bare-metal
+                  activation-service-type
+                  %linux-kernel-activation))
+
 
 (define special-files-service-type
   ;; Service to install "special files" such as /bin/sh and /usr/bin/env.