From 240b57f0ca576708ebf6cfa0dfe2803fa9ff2323 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 3 Feb 2016 21:59:47 +0100 Subject: guix system: 'reconfigure' loads and starts new services. Partly fixes . * gnu/services/herd.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. * gnu/services/shepherd.scm (shepherd-service-canonical-name): New procedure. (shepherd-service-file): Export. * guix/scripts/system.scm (upgrade-shepherd-services): New procedure. (switch-to-system): Use it. * guix/ui.scm (info): New procedure. * doc/guix.texi (Invoking guix system): Mention system services. --- gnu/services/shepherd.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnu/services/shepherd.scm') diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm index 36ed9eb1c0..6cf15a5e00 100644 --- a/gnu/services/shepherd.scm +++ b/gnu/services/shepherd.scm @@ -40,6 +40,7 @@ (define-module (gnu services shepherd) shepherd-service? shepherd-service-documentation shepherd-service-provision + shepherd-service-canonical-name shepherd-service-requirement shepherd-service-respawn? shepherd-service-start @@ -51,6 +52,8 @@ (define-module (gnu services shepherd) %default-imported-modules %default-modules + shepherd-service-file + shepherd-service-back-edges)) ;;; Commentary: @@ -139,6 +142,9 @@ (define-record-type* (imported-modules shepherd-service-imported-modules ;list of module names (default %default-imported-modules))) +(define (shepherd-service-canonical-name service) + "Return the 'canonical name' of SERVICE." + (first (shepherd-service-provision service))) (define (assert-valid-graph services) "Raise an error if SERVICES does not define a valid shepherd service graph, -- cgit v1.2.3