guix_mirror_bot pushed a commit to branch wip-fix-system-tests in repository guix.
commit 638b8e40fdcd6f165e33dcc11639b1c556ec859b Author: Mathieu Othacehe <[email protected]> AuthorDate: Sat Oct 18 16:18:27 2025 +0200 Revert "installer: network: Add step for substitute availability." This reverts commit 9ea2174ba8f05445227c952e0faa17d9f65ddb8f. --- gnu/installer/newt/network.scm | 36 +----------------------------------- 1 file changed, 1 insertion(+), 35 deletions(-) diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 459c6d58d8..b29a475fba 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -165,36 +165,6 @@ 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." @@ -232,11 +202,7 @@ Internet." (installer-step (id 'wait-online) (compute (lambda _ - (wait-service-online)))) - (installer-step - (id 'check-substitutes) - (compute (lambda _ - (check-substitute-availability)))))) + (wait-service-online)))))) (run-installer-steps #:steps network-steps #:rewind-strategy 'start))
