ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: herd: Add a stop-service procedure.

Browse source 
* gnu/services/herd.scm (stop-service): New procedure.
This commit is contained in:
Christopher Baines 2017-08-05 22:24:18 +01:00
parent dc7b3e5633
commit 0642838b2e
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/services/herd.scm
View file

@ -49,7 +49,8 @@ (define-module (gnu services herd)
unload-services unload-services
unload-service unload-service
load-services load-services
start-service)) start-service
stop-service))
;;; Commentary: ;;; Commentary:
;;; ;;;
@ -222,6 +223,10 @@ (define (start-service name)
(with-shepherd-action name ('start) result (with-shepherd-action name ('start) result
result)) result))
(define (stop-service name)
(with-shepherd-action name ('stop) result
result))
;; Local Variables: ;; Local Variables:
;; eval: (put 'alist-let* 'scheme-indent-function 2) ;; eval: (put 'alist-let* 'scheme-indent-function 2)
;; eval: (put 'with-shepherd 'scheme-indent-function 1) ;; eval: (put 'with-shepherd 'scheme-indent-function 1)