mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-23 21:17:11 -05:00
services: Don't use the deprecated 'make-forkexec-constructor' call.
Passing 'make-forkexec-constructor' a string or several string arguments has been deprecated since dmd 0.1. * gnu/services/base.scm (rngd-service-type): In 'start' method, pass a list as the first argument to 'make-forkexec-constructor'. * gnu/services/desktop.scm (bluetooth-shepherd-service): Likewise. * gnu/services/spice.scm (spice-vdagent-shepherd-service): Likewise.
This commit is contained in:
parent
b6cb4aeff8
commit
7d903d2ff7
3 changed files with 4 additions and 4 deletions
|
@ -557,7 +557,7 @@ (define rngd-command
|
|||
(documentation "Add TRNG to entropy pool.")
|
||||
(requirement '(udev))
|
||||
(provision '(trng))
|
||||
(start #~(make-forkexec-constructor #$@rngd-command))
|
||||
(start #~(make-forkexec-constructor '#$rngd-command))
|
||||
(stop #~(make-kill-destructor))))))
|
||||
|
||||
(define* (rngd-service #:key
|
||||
|
|
|
@ -452,8 +452,8 @@ (define (bluetooth-shepherd-service config)
|
|||
(requirement '(dbus-system udev))
|
||||
(documentation "Run the bluetoothd daemon.")
|
||||
(start #~(make-forkexec-constructor
|
||||
(string-append #$(bluetooth-configuration-bluez config)
|
||||
"/libexec/bluetooth/bluetoothd")))
|
||||
(list #$(file-append (bluetooth-configuration-bluez config)
|
||||
"/libexec/bluetooth/bluetoothd"))))
|
||||
(stop #~(make-kill-destructor))))
|
||||
|
||||
(define bluetooth-service-type
|
||||
|
|
|
@ -54,7 +54,7 @@ (define spice-vdagentd-command
|
|||
(documentation "Spice vdagentd service")
|
||||
(requirement '(udev))
|
||||
(provision '(spice-vdagentd))
|
||||
(start #~(make-forkexec-constructor #$@spice-vdagentd-command))
|
||||
(start #~(make-forkexec-constructor '#$spice-vdagentd-command))
|
||||
(stop #~(make-kill-destructor)))))
|
||||
|
||||
(define spice-vdagent-profile
|
||||
|
|
Loading…
Reference in a new issue