From c830339ddf6c89f46dded8adcf03ebc483f5e598 Mon Sep 17 00:00:00 2001
From: Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk>
Date: Wed, 4 Jan 2017 06:35:36 +0000
Subject: Add stop-service

---
 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 03bfbf1d78..d6d602479e 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -46,7 +46,8 @@
             unload-services
             unload-service
             load-services
-            start-service))
+            start-service
+            stop-service))
 
 ;;; Commentary:
 ;;;
@@ -219,6 +220,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)
-- 
cgit v1.2.3