guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 0b35df4c8b9f1cc80eaadff0e0444e16cfa5375f
Author: Rutherther <[email protected]>
AuthorDate: Fri Sep 5 20:05:39 2025 +0200
installer: wait-service-online: Allow user to proceed if offline.
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 <[email protected]>
---
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 0b91bda5f8..b29a475fba 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
