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