1
0
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:
Hilton Chain
2026-02-10 20:15:46 +08:00
parent 4a7d413409
commit 5429b9a1f9

View File

@@ -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