guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 9ea2174ba8f05445227c952e0faa17d9f65ddb8f
Author: Rutherther <[email protected]>
AuthorDate: Tue Oct 14 22:23:04 2025 +0200
installer: network: Add step for substitute availability.
Notifies the user if substitutes are not available to
let them know they might have to build a lot of software.
* gnu/installer/newt/network.scm
(check-substitute-availability): Step for checking if substitutes are
available.
(run-network-page): Add the step.
Change-Id: Ia7f54b7a5b70b371240b9e732c7eff078d2c2184
Signed-off-by: Ludovic Courtès <[email protected]>
---
gnu/installer/newt/network.scm | 36 +++++++++++++++++++++++++++++++++++-
1 file changed, 35 insertions(+), 1 deletion(-)
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm
index b29a475fba..459c6d58d8 100644
--- a/gnu/installer/newt/network.scm
+++ b/gnu/installer/newt/network.scm
@@ -165,6 +165,36 @@ Internet. The install process requires Internet access. \
Do you want to continue anyway?"))
((2) (abort-to-prompt 'installer-step 'abort))))))
+(define (check-substitute-availability)
+ "Check that at least one of the Guix substitute servers is available."
+ (define (substitutes-available?)
+ (common-urls-alive?
+ (list
+ "https://bordeaux.guix.gnu.org/nix-cache-info";
+ "https://ci.guix.gnu.org/nix-cache-info";)))
+
+ (let* ((full-value 5))
+ (run-scale-page
+ #:title (G_ "Checking substitutes")
+ #:info-text (G_ "Checking if Guix substitutes are available...")
+ #:scale-full-value full-value
+ #:scale-update-proc
+ (lambda (value)
+ (sleep 1)
+ (if (substitutes-available?)
+ full-value
+ (+ value 1))))
+ (unless (substitutes-available?)
+ (case (choice-window
+ (G_ "Substitute availability")
+ (G_ "Continue")
+ (G_ "Try again?")
+ (G_ "
+None of the Guix substitute servers are available.
+You can proceed with the install, but you will
+have to build most of the packages you install locally."))
+ ((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
Internet."
@@ -202,7 +232,11 @@ Internet."
(installer-step
(id 'wait-online)
(compute (lambda _
- (wait-service-online))))))
+ (wait-service-online))))
+ (installer-step
+ (id 'check-substitutes)
+ (compute (lambda _
+ (check-substitute-availability))))))
(run-installer-steps
#:steps network-steps
#:rewind-strategy 'start))
