tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-07 05:30:38 +02:00
Code Activity

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
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/services/herd.scm
View File

@@ -252,9 +252,10 @@ when passed a service with an already-registered name."
services
(remove registered? services))))))
(define (start-service name)
(with-shepherd-action name ('start) result
result))
(define* (start-service name #:optional (arguments '()))
(invoke-action name 'start arguments
(lambda (result)
result)))
(define (stop-service name)
(with-shepherd-action name ('stop) result