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 <mail@ambrevar.xyz>
This commit is contained in:
Mathieu Othacehe 2019-05-29 09:44:44 +02:00
parent 4b92dac20f
commit 694cb8dc62
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
2 changed files with 2 additions and 1 deletions

View File

@ -108,7 +108,7 @@
(define-record-type* <service> (define-record-type* <service>
service make-service service make-service
service? service?
(name service-name) ; string (name service-name) ; string or #f
(type service-type) ; string (type service-type) ; string
(path service-path) ; string (path service-path) ; string
(strength service-strength) ; integer (strength service-strength) ; integer

View File

@ -144,6 +144,7 @@ of <service-item> records present in LISTBOX."
(let ((services (connman-services))) (let ((services (connman-services)))
(filter (lambda (service) (filter (lambda (service)
(and (string=? (service-type service) "wifi") (and (string=? (service-type service) "wifi")
(service-name service)
(not (string-null? (service-name service))))) (not (string-null? (service-name service)))))
services))) services)))