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

[guix-commits]

This is an automated email from the git hooks/post-receive script.

abcdw pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 3a2200e1ad services: network-manager: Add missing shadowing of 'iwd?' 
field.
3a2200e1ad is described below

commit 3a2200e1ad2049ad7e25295e6b4e013f74dd84e2
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Mon Mar 20 12:08:36 2023 +0400

    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 @@ 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))