1 file changed, 15 insertions(+), 12 deletions(-)
gnu/services/networking.scm | 27 +++++++++++++++------------

modified   gnu/services/networking.scm
@@ -1072,19 +1072,22 @@ networking."))))
             (stop #~(make-kill-destructor)))))))
 
 (define wpa-supplicant-service-type
-  (let ((config->package
-         (match-lambda
-           (($ <wpa-supplicant-configuration> wpa-supplicant)
-            (list wpa-supplicant)))))
-    (service-type (name 'wpa-supplicant)
-                  (extensions
-                   (list (service-extension shepherd-root-service-type
-                                            wpa-supplicant-shepherd-service)
-                         (service-extension dbus-root-service-type config->package)
-                         (service-extension profile-service-type config->package)))
-                  (description "Run the WPA Supplicant daemon, a service that
+  (lambda* (#:optional wpa-supplicant-package)      ;deprecated
+    (let ((package
+           (if wpa-supplicant-package
+               wpa-supplicant-package
+               (match-lambda
+                 (($ <wpa-supplicant-configuration> wpa-supplicant)
+                  (list wpa-supplicant))))))
+      (service-type (name 'wpa-supplicant)
+                    (extensions
+                     (list (service-extension shepherd-root-service-type
+                                              wpa-supplicant-shepherd-service)
+                           (service-extension dbus-root-service-type package)
+                           (service-extension profile-service-type package)))
+                    (description "Run the WPA Supplicant daemon, a service that
 implements authentication, key negotiation and more for wireless networks.")
-                  (default-value (wpa-supplicant-configuration)))))
+                    (default-value (wpa-supplicant-configuration))))))
 
 
 ;;;

[back]