diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-08-05 22:24:18 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-08-08 20:49:08 +0100 |
| commit | 0642838b2e9ab2bd988dccb64b9e1130006347bf (patch) | |
| tree | 55212dc79eb6b976162ae04c771749b8d44ccaf9 | |
| parent | dc7b3e56337ee9d8dcd8fe7d5cab71ef536d024f (diff) | |
| download | patches-0642838b2e9ab2bd988dccb64b9e1130006347bf.tar patches-0642838b2e9ab2bd988dccb64b9e1130006347bf.tar.gz | |
services: herd: Add a stop-service procedure.
* gnu/services/herd.scm (stop-service): New procedure.
| -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 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) |