~ruther/guix-local

4aa2dccd4e4ae0243dcdf55a8e98d9c1520a4694 — Ludovic Courtès 2 years ago c1d37d0 
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
patch browse .tar.gz 
1 files changed, 2 insertions(+), 1 deletions(-)

M gnu/services/virtualization.scm

M gnu/services/virtualization.scm => gnu/services/virtualization.scm +2 -1
@@ 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