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
This commit is contained in:
parent
c1d37d0653
commit
4aa2dccd4e
|
@ -1500,7 +1500,8 @@ (define service-name
|
||||||
(srfi srfi-34))
|
(srfi srfi-34))
|
||||||
|
|
||||||
(guard (c ((service-not-found-error? c) #f))
|
(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 (build-vm-guix-extension config)
|
||||||
(define vm-ssh-key
|
(define vm-ssh-key
|
||||||
|
|
Loading…
Reference in a new issue