[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: services: herd: Add restart-service.
From: |
guix-commits |
Subject: |
03/03: services: herd: Add restart-service. |
Date: |
Tue, 3 Mar 2020 08:11:15 -0500 (EST) |
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)