summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2017-08-05 22:24:18 +0100
committerChristopher Baines <mail@cbaines.net>2017-08-08 20:49:08 +0100
commit0642838b2e9ab2bd988dccb64b9e1130006347bf (patch)
tree55212dc79eb6b976162ae04c771749b8d44ccaf9 /gnu
parentdc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f (diff)
downloadguix-0642838b2e9ab2bd988dccb64b9e1130006347bf.tar.gz
services: herd: Add a stop-service procedure.
* gnu/services/herd.scm (stop-service): New procedure.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/herd.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index 49400aba47..e16d51b9d0 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)