From 0b35df4c8b9f1cc80eaadff0e0444e16cfa5375f Mon Sep 17 00:00:00 2001 From: Rutherther Date: Fri, 5 Sep 2025 20:05:39 +0200 Subject: [PATCH] installer: wait-service-online: Allow user to proceed if offline. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The user may choose to proceed with installation even if they seem to be offline. This is mostly for cases where the user if actually online, but the gnu and guix infrastructure is down. On top of that, if the installer has all the necessary dependencies the user might not need internet at all. * gnu/installer/newt/network.scm (wait-oservice-online): Add choice window for user to continue if offline. Change-Id: Id8868ad42a6874d31b64765457f8a3d3b08ebd6c Signed-off-by: Ludovic Courtès --- gnu/installer/newt/network.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 0b91bda5f87..b29a475fba2 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -155,11 +155,15 @@ FULL-VALUE tentatives, spaced by 1 second." full-value (+ value 1)))) (unless (online?) - (run-error-page - (G_ "The selected network does not provide access to the \ -Internet and the Guix substitute server, please try again.") - (G_ "Connection error")) - (abort-to-prompt 'installer-step 'abort)))) + (case (choice-window + (G_ "Internet access") + (G_ "Continue") + (G_ "Try again?") + (G_ " +The selected network does not seem to provide access to the \ +Internet. The install process requires Internet access. \ +Do you want to continue anyway?")) + ((2) (abort-to-prompt 'installer-step 'abort)))))) (define (run-network-page) "Run a page to allow the user to configure connman so that it can access the