mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-12 14:16:55 -05:00
services: herd: Add a stop-service procedure.
* gnu/services/herd.scm (stop-service): New procedure.
This commit is contained in:
parent
dc7b3e5633
commit
0642838b2e
1 changed files with 6 additions and 1 deletions
|
@ -49,7 +49,8 @@ (define-module (gnu services herd)
|
|||
unload-services
|
||||
unload-service
|
||||
load-services
|
||||
start-service))
|
||||
start-service
|
||||
stop-service))
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
|
@ -222,6 +223,10 @@ (define (start-service name)
|
|||
(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)
|
||||
|
|
Loading…
Reference in a new issue