summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-04-12 14:08:33 +0200
committerLudovic Courtès <ludo@gnu.org>2017-04-13 00:12:42 +0200
commit6ddf4fcfaeff8c9c1c6bd43c172ca33fe6d62c73 (patch)
treef2ba1cc7780d1b7d9fe68e786cf16238c3b97393
parent012863081d44a916b8d0403701f364c5aa141117 (diff)
downloadguix-6ddf4fcfaeff8c9c1c6bd43c172ca33fe6d62c73.tar.gz
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'.
-rw-r--r--gnu/services.scm11
1 files changed, 4 insertions, 7 deletions
diff --git a/gnu/services.scm b/gnu/services.scm
index 6c88f2621b..9f6e323e18 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.