guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

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>
This commit is contained in:
aleksandr barakin 2022-10-03 16:55:49 +03:00 committed by Andrew Tropin
parent 6f7b44e42e
commit 094b357783
No known key found for this signature in database
GPG Key ID: 2208D20958C1DEB0
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/installer/newt/network.scm
View File

@ -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))))