services: herd: Allow to pass arguments to start-service.
* gnu/services/herd.scm (start-service)[arguments]: New optional argument.master
parent
b08bea0497
commit
ca0c43ecf0
|
@ -252,9 +252,10 @@ when passed a service with an already-registered name."
|
||||||
services
|
services
|
||||||
(remove registered? services))))))
|
(remove registered? services))))))
|
||||||
|
|
||||||
(define (start-service name)
|
(define* (start-service name #:optional (arguments '()))
|
||||||
(with-shepherd-action name ('start) result
|
(invoke-action name 'start arguments
|
||||||
result))
|
(lambda (result)
|
||||||
|
result)))
|
||||||
|
|
||||||
(define (stop-service name)
|
(define (stop-service name)
|
||||||
(with-shepherd-action name ('stop) result
|
(with-shepherd-action name ('stop) result
|
||||||
|
|
Reference in New Issue