ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Don't use the deprecated 'make-forkexec-constructor' call.

Browse source 
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:
Ludovic Courtès 2020-04-20 19:36:41 +02:00
parent b6cb4aeff8
commit 7d903d2ff7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/services/base.scm
View file

@ -557,7 +557,7 @@ (define rngd-command
(documentation "Add TRNG to entropy pool.") (documentation "Add TRNG to entropy pool.")
(requirement '(udev)) (requirement '(udev))
(provision '(trng)) (provision '(trng))
(start #~(make-forkexec-constructor #$@rngd-command)) (start #~(make-forkexec-constructor '#$rngd-command))
(stop #~(make-kill-destructor)))))) (stop #~(make-kill-destructor))))))
(define* (rngd-service #:key (define* (rngd-service #:key

4
gnu/services/desktop.scm
View file

@ -452,8 +452,8 @@ (define (bluetooth-shepherd-service config)
(requirement '(dbus-system udev)) (requirement '(dbus-system udev))
(documentation "Run the bluetoothd daemon.") (documentation "Run the bluetoothd daemon.")
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(string-append #$(bluetooth-configuration-bluez config) (list #$(file-append (bluetooth-configuration-bluez config)
"/libexec/bluetooth/bluetoothd"))) "/libexec/bluetooth/bluetoothd"))))
(stop #~(make-kill-destructor)))) (stop #~(make-kill-destructor))))
(define bluetooth-service-type (define bluetooth-service-type

2
gnu/services/spice.scm
View file

@ -54,7 +54,7 @@ (define spice-vdagentd-command
(documentation "Spice vdagentd service") (documentation "Spice vdagentd service")
(requirement '(udev)) (requirement '(udev))
(provision '(spice-vdagentd)) (provision '(spice-vdagentd))
(start #~(make-forkexec-constructor #$@spice-vdagentd-command)) (start #~(make-forkexec-constructor '#$spice-vdagentd-command))
(stop #~(make-kill-destructor))))) (stop #~(make-kill-destructor)))))
(define spice-vdagent-profile (define spice-vdagent-profile