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:
parent
4b92dac20f
commit
694cb8dc62
|
@ -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
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue