cbaines pushed a commit to branch master in repository guix. commit 0642838b2e9ab2bd988dccb64b9e1130006347bf Author: Christopher Baines <m...@cbaines.net> 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)