diff options
| author | Mark H Weaver <mhw@netris.org> | 2017-08-09 17:25:31 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2017-08-09 17:25:31 -0400 |
| commit | cc294bcee6bfaa4524ac43450e41f083539f9cb1 (patch) | |
| tree | 1248811a6fd39e9169fd4b3c58f456bd21d1c7d5 /gnu/services/herd.scm | |
| parent | 32b7506c987d8b7281382da4831958a64c048fc1 (diff) | |
| parent | ae7f246cf1c7e20ebf4025024bb10361938abaa2 (diff) | |
| download | guix-cc294bcee6bfaa4524ac43450e41f083539f9cb1.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/services/herd.scm')
| -rw-r--r-- | gnu/services/herd.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm index f8d60a4802..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: ;;; @@ -146,7 +147,7 @@ result. Otherwise return #f." (force-output sock) (match (read sock) - (('reply ('version 0 _ ...) ('result (result)) ('error #f) + (('reply ('version 0 _ ...) ('result result) ('error #f) ('messages messages)) (for-each display-message messages) (cont result)) @@ -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) |