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-01-21 20:29:10 +0000 |
| commit | 349e600ebfbe66ab65484ff6f4f1f8d28c06ed25 (patch) | |
| tree | 93bed691ddfc496be6de815b64019264cdbc8514 | |
| parent | 65eb68f4e1e2126a0c5980f2100636a87c02c2ae (diff) | |
| download | gnu-guix-349e600ebfbe66ab65484ff6f4f1f8d28c06ed25.tar gnu-guix-349e600ebfbe66ab65484ff6f4f1f8d28c06ed25.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 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) |