02/13: services: virtual-build-machine: Do not offload when service is stopped.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 4aa2dccd4e4ae0243dcdf55a8e98d9c1520a4694
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Feb 12 16:38:12 2024 +0100

    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
---
 gnu/services/virtualization.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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