ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: herd: Allow to pass arguments to start-service.

Browse source 
* gnu/services/herd.scm (start-service)[arguments]: New optional argument.
This commit is contained in:
Mathieu Othacehe 2018-12-05 14:13:38 +09:00 committed by Ludovic Courtès
parent b08bea0497
commit ca0c43ecf0
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/services/herd.scm
View file

@ -252,9 +252,10 @@ (define (registered? service)
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