diff options
| author | Hilton Chain <hako@ultrarare.space> | 2026-02-10 20:15:46 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2026-02-11 12:14:13 +0800 |
| commit | 5429b9a1f9756d78564e905bcc9721bf9bd73976 (patch) | |
| tree | fb41ccea30d67d32ed55b13d6e3d86c9cefd18d1 /gnu | |
| parent | 4a7d413409988e89b41dfd786767f94ed5be91e4 (diff) | |
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
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/installer/newt/wifi.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/installer/newt/wifi.scm b/gnu/installer/newt/wifi.scm index 8a87cbdf4b1..0f7b44e3422 100644 --- a/gnu/installer/newt/wifi.scm +++ b/gnu/installer/newt/wifi.scm @@ -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 |