[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Fix wifi menu crash with hidden SSIDs.
From: |
guix-commits |
Subject: |
01/01: installer: Fix wifi menu crash with hidden SSIDs. |
Date: |
Wed, 29 May 2019 05:44:57 -0400 (EDT) |
mothacehe pushed a commit to branch master
in repository guix.
commit 694cb8dc62f59fb67799ad4908a6b12cf7cb49a3
Author: Mathieu Othacehe <address@hidden>
Date: Wed May 29 09:44:44 2019 +0200
installer: Fix wifi menu crash with hidden SSIDs.
This fixes https://issues.guix.gnu.org/issue/35622.
* gnu/installer/connman.scm (<service>): Mention that name may be false.
* gnu/installer/newt/wifi.scm (wifi-services): Filter out wifi services
without name.
Co-authored by: Pierre Neidhardt <address@hidden>
---
gnu/installer/connman.scm | 2 +-
gnu/installer/newt/wifi.scm | 1 +
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/gnu/installer/connman.scm b/gnu/installer/connman.scm
index ef8cca3..7f47b9a 100644
--- a/gnu/installer/connman.scm
+++ b/gnu/installer/connman.scm
@@ -108,7 +108,7 @@
(define-record-type* <service>
service make-service
service?
- (name service-name) ; string
+ (name service-name) ; string or #f
(type service-type) ; string
(path service-path) ; string
(strength service-strength) ; integer
diff --git a/gnu/installer/newt/wifi.scm b/gnu/installer/newt/wifi.scm
index da2f0b5..1cb2ef2 100644
--- a/gnu/installer/newt/wifi.scm
+++ b/gnu/installer/newt/wifi.scm
@@ -144,6 +144,7 @@ of <service-item> records present in LISTBOX."
(let ((services (connman-services)))
(filter (lambda (service)
(and (string=? (service-type service) "wifi")
+ (service-name service)
(not (string-null? (service-name service)))))
services)))