mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
installer: run-wifi-page: Handle null ‘service-items’.
Previously, the installer crashes after pressing enter on "No wifi detected". * gnu/installer/newt/wifi.scm (run-wifi-page): Scan wifi when connecting with null ‘service-items’. Change-Id: I04c57f2bdf0cc7f5928e154fce48e54d1ecb0cfa Merges: #6287
This commit is contained in:
@@ -233,11 +233,12 @@ force a wifi scan."
|
||||
(lambda ()
|
||||
(when (eq? exit-reason 'exit-component)
|
||||
(cond
|
||||
((components=? argument scan-button)
|
||||
(run-wifi-scan-page)
|
||||
(run-wifi-page))
|
||||
((components=? argument exit-button)
|
||||
(abort-to-prompt 'installer-step 'abort))
|
||||
((or (components=? argument scan-button)
|
||||
(null? service-items))
|
||||
(run-wifi-scan-page)
|
||||
(run-wifi-page))
|
||||
((components=? argument listbox)
|
||||
(let ((result (connect-wifi-service listbox service-items)))
|
||||
(unless result
|
||||
|
||||
Reference in New Issue
Block a user