From 5429b9a1f9756d78564e905bcc9721bf9bd73976 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Tue, 10 Feb 2026 20:15:46 +0800 Subject: [PATCH] =?UTF-8?q?installer:=20run-wifi-page:=20Handle=20null=20?= =?UTF-8?q?=E2=80=98service-items=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- gnu/installer/newt/wifi.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/gnu/installer/newt/wifi.scm b/gnu/installer/newt/wifi.scm index 8a87cbdf4b..0f7b44e342 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