GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-29 21:58:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

new try...

Browse source
This commit is contained in:
Yann Dupont 2023-05-26 12:26:36 +02:00
parent c6575c5d75
commit eba936f1e4
1 changed files with 24 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
glicid/services/virtualization.scm
View file

@ -14,11 +14,31 @@
(define (qemu-guest-agent-shepherd-service config)
(inherit gnu:qemu-guest-agent-shepherd-service)
(requirement '(udev)) ;; GLiCID
;(define (qemu-guest-agent-shepherd-service config)
; (inherit gnu:qemu-guest-agent-shepherd-service)
; (requirement '(udev)) ;; GLiCID
;
;)
(define (qemu-guest-agent-shepherd-service config)
(let ((qemu (gnu:qemu-guest-agent-configuration-qemu config))
(device (gnu:qemu-guest-agent-configuration-device config)))
(list
(shepherd-service
(provision '(qemu-guest-agent))
(requirement '(udev)) ;; GLiCID
(documentation "Run the QEMU guest agent.")
(start #~(make-forkexec-constructor
`(,(string-append #$qemu "/bin/qemu-ga")
"--statedir" "/var/run"
,@(if (string-null? #$device)
'()
(list "--path" #$device)))
#:log-file "/var/log/qemu-ga.log"))
(stop #~(make-kill-destructor))))))
)
(define qemu-guest-agent-service-type
(service-type