From 3a2200e1ad2049ad7e25295e6b4e013f74dd84e2 Mon Sep 17 00:00:00 2001 From: Andrew Tropin Date: Mon, 20 Mar 2023 12:08:36 +0400 Subject: [PATCH] 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. --- gnu/services/networking.scm | 16 ++++++++-------- 1 file 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 @@ (define (network-manager-environment config) (define (network-manager-shepherd-service config) (match-record config (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))