~ruther/guix-local

6ddf4fcfaeff8c9c1c6bd43c172ca33fe6d62c73 — Ludovic Courtès 9 years ago 0128630
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'.
1 files changed, 4 insertions(+), 7 deletions(-)

M gnu/services.scm
M gnu/services.scm => gnu/services.scm +4 -7
@@ 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.