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

services: network-manager: Add missing shadowing of 'iwd?' field.

Browse source 
* gnu/services/networking.scm (network-manager-shepherd-service): Add missing
shadowing of 'iwd?' field by using let* instead of let.
This commit is contained in:
Andrew Tropin 2023-03-20 12:08:36 +04:00
parent 1f36534c7e
commit 3a2200e1ad
No known key found for this signature in database
GPG key ID: 2208D20958C1DEB0
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/services/networking.scm
View file

@ -1219,14 +1219,14 @@ (define (network-manager-environment config)
(define (network-manager-shepherd-service config) (define (network-manager-shepherd-service config)
(match-record config <network-manager-configuration> (match-record config <network-manager-configuration>
(network-manager shepherd-requirement dns vpn-plugins iwd?) (network-manager shepherd-requirement dns vpn-plugins iwd?)
(let ((iwd? (or iwd? ; TODO: deprecated field, remove later. (let* ((iwd? (or iwd? ; TODO: deprecated field, remove later.
(and shepherd-requirement (and shepherd-requirement
(memq 'iwd shepherd-requirement)))) (memq 'iwd shepherd-requirement))))
(conf (plain-file "NetworkManager.conf" (conf (plain-file "NetworkManager.conf"
(string-append (string-append
"[main]\ndns=" dns "\n" "[main]\ndns=" dns "\n"
(if iwd? "[device]\nwifi.backend=iwd\n" "")))) (if iwd? "[device]\nwifi.backend=iwd\n" ""))))
(vpn (vpn-plugin-directory vpn-plugins))) (vpn (vpn-plugin-directory vpn-plugins)))
(list (shepherd-service (list (shepherd-service
(documentation "Run the NetworkManager.") (documentation "Run the NetworkManager.")
(provision '(NetworkManager networking)) (provision '(NetworkManager networking))