diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-08-04 13:41:27 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-08-04 13:41:27 +0200 |
| commit | f35d3132654bd1be5c7453f9eb43eb6e9de85a15 (patch) | |
| tree | f62c3a069153d1612a5c270e991eebe43c4f5cae /gnu/services/herd.scm | |
| parent | 1dff73acf908125b292de2ab2fc5b25155ad77d8 (diff) | |
| parent | e920037793faeebf8fb2a918b50a1751b125a0af (diff) | |
| download | guix-f35d3132654bd1be5c7453f9eb43eb6e9de85a15.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'gnu/services/herd.scm')
| -rw-r--r-- | gnu/services/herd.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm index 0008746fe9..2207b2d34b 100644 --- a/gnu/services/herd.scm +++ b/gnu/services/herd.scm @@ -40,10 +40,12 @@ unknown-shepherd-error? unknown-shepherd-error-sexp + live-service live-service? live-service-provision live-service-requirement live-service-running + live-service-canonical-name with-shepherd-action current-services @@ -192,6 +194,10 @@ of pairs." (requirement live-service-requirement) ;list of symbols (running live-service-running)) ;#f | object +(define (live-service-canonical-name service) + "Return the 'canonical name' of SERVICE." + (first (live-service-provision service))) + (define (current-services) "Return the list of currently defined Shepherd services, represented as <live-service> objects. Return #f if the list of services could not be |