From 094b357783ae92fc5652f8a8c61e0b96b342d09d Mon Sep 17 00:00:00 2001 From: aleksandr barakin Date: Mon, 3 Oct 2022 16:55:49 +0300 Subject: installer: Relax internet check availability criteria. Checks the availability of the mirror bordeaux.guix.gnu.org in addition to ci.guix.gnu.org. This allows to proceed the installation if the ci.guix.gnu.org is unavailable. * gnu/installer/newt/network.scm (wait-service-online): Relax internet check availability criteria. Signed-off-by: Andrew Tropin --- gnu/installer/newt/network.scm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'gnu/installer') diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 0477a489be..b11a55cb1f 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -122,10 +122,15 @@ (define (ci-available?) (lambda _ #f)) (alarm 3)) (lambda () - (false-if-exception - (= (response-code - (http-request "https://ci.guix.gnu.org")) - 200))) + (or + (false-if-exception + (= (response-code + (http-request "https://ci.guix.gnu.org")) + 200)) + (false-if-exception + (= (response-code + (http-request "https://bordeaux.guix.gnu.org")) + 200)))) (lambda () (alarm 0)))) -- cgit v1.2.3