diff options
| author | Andrew Tropin <andrew@trop.in> | 2023-03-20 12:08:36 +0400 |
|---|---|---|
| committer | Andrew Tropin <andrew@trop.in> | 2023-03-20 12:08:36 +0400 |
| commit | 3a2200e1ad2049ad7e25295e6b4e013f74dd84e2 (patch) | |
| tree | 7983d41944e2831490c73e16d5963be66e55f237 | |
| parent | 1f36534c7e8f2325bff4df5d37ecc811dc63fc38 (diff) | |
| download | guix-3a2200e1ad2049ad7e25295e6b4e013f74dd84e2.tar.gz | |
services: network-manager: Add missing shadowing of 'iwd?' field.
* gnu/services/networking.scm (network-manager-shepherd-service): Add missing shadowing of 'iwd?' field by using let* instead of let.
| -rw-r--r-- | gnu/services/networking.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index 5c6ad4ce3b..4632498357 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -1219,14 +1219,14 @@ project's documentation} for more information." (define (network-manager-shepherd-service config) (match-record config <network-manager-configuration> (network-manager shepherd-requirement dns vpn-plugins iwd?) - (let ((iwd? (or iwd? ; TODO: deprecated field, remove later. - (and shepherd-requirement - (memq 'iwd shepherd-requirement)))) - (conf (plain-file "NetworkManager.conf" - (string-append - "[main]\ndns=" dns "\n" - (if iwd? "[device]\nwifi.backend=iwd\n" "")))) - (vpn (vpn-plugin-directory vpn-plugins))) + (let* ((iwd? (or iwd? ; TODO: deprecated field, remove later. + (and shepherd-requirement + (memq 'iwd shepherd-requirement)))) + (conf (plain-file "NetworkManager.conf" + (string-append + "[main]\ndns=" dns "\n" + (if iwd? "[device]\nwifi.backend=iwd\n" "")))) + (vpn (vpn-plugin-directory vpn-plugins))) (list (shepherd-service (documentation "Run the NetworkManager.") (provision '(NetworkManager networking)) |