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:
Ludovic Courtès 2024-02-12 16:38:12 +01:00
parent c1d37d0653
commit 4aa2dccd4e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1500,7 +1500,8 @@ (define service-name
(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