aboutsummaryrefslogtreecommitdiff
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
guix-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.