diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-02-12 16:38:12 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-02-18 15:34:42 +0100 |
| commit | 4aa2dccd4e4ae0243dcdf55a8e98d9c1520a4694 (patch) | |
| tree | 478cd4381bde863fabab9dae80300212c1e40c24 /gnu/services | |
| parent | c1d37d0653766c8de52e22bae01701baf503338f (diff) | |
services: virtual-build-machine: Do not offload when service is stopped.
* gnu/services/virtualization.scm (check-vm-availability): Check the
value of ‘live-service-running’.
Change-Id: Iba858ea0fa417d9276e026b72b4b78791932482e
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/virtualization.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm index 0fbd51de8d..69c8c84190 100644 --- a/gnu/services/virtualization.scm +++ b/gnu/services/virtualization.scm @@ -1500,7 +1500,8 @@ CONFIG, a <virtual-build-machine>, is up and running." (srfi srfi-34)) (guard (c ((service-not-found-error? c) #f)) - (->bool (current-service '#$service-name)))))) + (->bool (live-service-running + (current-service '#$service-name))))))) (define (build-vm-guix-extension config) (define vm-ssh-key |