tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

services: virtual-build-machine: Add ‘configuration’ action.

Browse Source 
* gnu/services/virtualization.scm (build-vm-shepherd-services): Add
‘configuration’ action.
* doc/guix.texi (Virtualization Services): Document it.

Change-Id: I4734e096d744b3cda0d523692498a73c0029e188
This commit is contained in:
Ludovic Courtès
2024-02-18 12:39:26 +01:00
parent cd0dc17e43
commit 1cff19d8d4
2 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/services/virtualization.scm
View File

@@ -1342,6 +1342,22 @@ authpriv.*;auth.info /var/log/secure
(kill (- pid) SIGTERM)
(apply throw key args)))))))
(stop #~(make-kill-destructor))
(actions
(list (shepherd-action
(name 'configuration)
(documentation
"Display the configuration of this virtual build machine.")
(procedure
#~(lambda (_)
(format #t "CPU: ~a~%"
#$(virtual-build-machine-cpu config))
(format #t "number of CPU cores: ~a~%"
#$(virtual-build-machine-cpu-count config))
(format #t "memory size: ~a MiB~%"
#$(virtual-build-machine-memory-size config))
(format #t "initial date: ~a~%"
#$(date->string
(virtual-build-machine-date config))))))))
(auto-start? (virtual-build-machine-auto-start? config)))))
(define (authorize-guest-substitutes-on-host)