branch master updated: installer: Relax internet check availability criteria.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

abcdw pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 094b357783 installer: Relax internet check availability criteria.
094b357783 is described below

commit 094b357783ae92fc5652f8a8c61e0b96b342d09d
Author: aleksandr barakin <alex@barak.in>
AuthorDate: Mon Oct 3 16:55:49 2022 +0300

    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 <andrew@trop.in>
---
 gnu/installer/newt/network.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

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 @@ FULL-VALUE tentatives, spaced by 1 second."
           (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))))