[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: services: herd: Add a stop-service procedure.
From: |
Christopher Baines |
Subject: |
02/02: services: herd: Add a stop-service procedure. |
Date: |
Tue, 8 Aug 2017 15:49:58 -0400 (EDT) |
cbaines pushed a commit to branch master
in repository guix.
commit 0642838b2e9ab2bd988dccb64b9e1130006347bf
Author: Christopher Baines <address@hidden>
Date: Sat Aug 5 22:24:18 2017 +0100
services: herd: Add a stop-service procedure.
* gnu/services/herd.scm (stop-service): New 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 49400ab..e16d51b 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -49,7 +49,8 @@
unload-services
unload-service
load-services
- start-service))
+ start-service
+ stop-service))
;;; Commentary:
;;;
@@ -222,6 +223,10 @@ returns a shepherd <service> object."
(with-shepherd-action name ('start) result
result))
+(define (stop-service name)
+ (with-shepherd-action name ('stop) result
+ result))
+
;; Local Variables:
;; eval: (put 'alist-let* 'scheme-indent-function 2)
;; eval: (put 'with-shepherd 'scheme-indent-function 1)