me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* 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
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/services/virtualization.scm
View file

@ -1500,7 +1500,8 @@ CONFIG, a <virtual-build-machine>, is up and running."
(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