ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Relax internet check availability criteria.

Browse source 
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 @@ (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))))