diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-07-24 12:34:02 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-26 19:19:49 +0200 |
| commit | 5c793753b31b1dcd9a554bce953124f7ae88ca9a (patch) | |
| tree | bf84b78a3fe0956a3adb14d1a216a82401e26a41 /gnu/services | |
| parent | 20269b6e08b338f6ef47374281c8988868ffa96a (diff) | |
| download | guix-5c793753b31b1dcd9a554bce953124f7ae88ca9a.tar guix-5c793753b31b1dcd9a554bce953124f7ae88ca9a.tar.gz | |
guix system: Add 'reconfigure' module.
* guix/scripts/system/reconfigure.scm: New file.
* Makefile.am (MODULES): Add it.
* guix/scripts/system.scm (bootloader-installer-script): Export variable.
* gnu/machine/ssh.scm (switch-to-system, upgrade-shepherd-services)
(install-bootloader): Delete variable.
* gnu/machine/ssh.scm (deploy-managed-host): Rewrite procedure.
* gnu/services/herd.scm (live-service): Export variable.
* gnu/services/herd.scm (live-service-canonical-name): New variable.
* tests/services.scm (live-service): Delete variable.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/services')
| -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 |