diff options
author | Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk> | 2017-01-04 06:35:36 +0000 |
---|---|---|
committer | Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk> | 2017-06-22 10:26:34 +0100 |
commit | 1b95715343073b01f5a66240023feaa9d3322bbc (patch) | |
tree | adba15504fdecfed410a86ded922d692c0de0fda | |
parent | 3011c9e34bd52e9dadce05bfa777415f282445ba (diff) | |
download | gnu-guix-1b95715343073b01f5a66240023feaa9d3322bbc.tar gnu-guix-1b95715343073b01f5a66240023feaa9d3322bbc.tar.gz |
Add stop-service
-rw-r--r-- | gnu/services/herd.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm index f8d60a4802..33ed7b5c31 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) |