03/03: services: herd: Add restart-service.

[guix-commits]

mothacehe pushed a commit to branch wip-installer-test
in repository guix.

commit 83a15cc956e3eaee056b13c070ffed19e188e5c4
Author: Mathieu Othacehe <address@hidden>
AuthorDate: Thu Feb 27 16:42:36 2020 +0100

    services: herd: Add restart-service.
    
    * gnu/services/herd.scm (restart-service): New exported procedure.
---
 gnu/services/herd.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index 112a7dc..f1475ce 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -55,7 +55,8 @@
             load-services
             load-services/safe
             start-service
-            stop-service))
+            stop-service
+            restart-service))
 
 ;;; Commentary:
 ;;;
@@ -272,6 +273,10 @@ when passed a service with an already-registered name."
   (with-shepherd-action name ('stop) result
     result))
 
+(define (restart-service name)
+  (with-shepherd-action name ('restart) result
+    result))
+
 ;; Local Variables:
 ;; eval: (put 'alist-let* 'scheme-indent-function 2)
 ;; eval: (put 'with-shepherd 'scheme-indent-function 1)