|
|
@ -336,12 +336,7 @@ list, power save will be disabled.")) |
|
|
|
(match-record config <iwd-configuration> |
|
|
|
(match-record config <iwd-configuration> |
|
|
|
(iwd resolvconf log-file |
|
|
|
(iwd resolvconf log-file |
|
|
|
enable-network-configuration? name-resolving-service) |
|
|
|
enable-network-configuration? name-resolving-service) |
|
|
|
(let ((conf (serialize-iwd-configuration config)) |
|
|
|
(let ((conf (serialize-iwd-configuration config))) |
|
|
|
(environment |
|
|
|
|
|
|
|
(if (eqv? name-resolving-service 'resolvconf) |
|
|
|
|
|
|
|
#~(list (string-append |
|
|
|
|
|
|
|
"PATH=" #$(file-append resolvconf "/sbin"))) |
|
|
|
|
|
|
|
#~(default-environment-variables)))) |
|
|
|
|
|
|
|
(list (shepherd-service |
|
|
|
(list (shepherd-service |
|
|
|
(documentation "Run iwd") |
|
|
|
(documentation "Run iwd") |
|
|
|
(provision `(,@(if enable-network-configuration? |
|
|
|
(provision `(,@(if enable-network-configuration? |
|
|
@ -351,8 +346,7 @@ list, power save will be disabled.")) |
|
|
|
(requirement '(user-processes dbus-system)) |
|
|
|
(requirement '(user-processes dbus-system)) |
|
|
|
(start #~(make-forkexec-constructor |
|
|
|
(start #~(make-forkexec-constructor |
|
|
|
(list (string-append #$iwd "/libexec/iwd")) |
|
|
|
(list (string-append #$iwd "/libexec/iwd")) |
|
|
|
#:log-file #$log-file |
|
|
|
#:log-file #$log-file)) |
|
|
|
#:environment-variables #$environment)) |
|
|
|
|
|
|
|
(stop #~(make-kill-destructor)) |
|
|
|
(stop #~(make-kill-destructor)) |
|
|
|
(actions |
|
|
|
(actions |
|
|
|
(list (shepherd-configuration-action "/etc/iwd/main.conf")))))))) |
|
|
|
(list (shepherd-configuration-action "/etc/iwd/main.conf")))))))) |
|
|
|