(address . guix-patches@gnu.org)
checks the availability of the mirror bordeaux.guix.gnu.org.
this allows you to start the installation if the ci.guix.gnu.org
is unavailable.
---
gnu/installer/newt/network.scm | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
Toggle diff (30 lines)
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))))
--
2.30.2
--
wbr, aleksandr barakin aka sash-kan.
-----BEGIN PGP SIGNATURE-----
iF0EABECAB0WIQTy+QZ2YvBaypi4qLpb8Ov2Kx8BwAUCYzrp4wAKCRBb8Ov2Kx8B
wGTCAJ42Utdm/dYgOhCFOASYC7rzzEq3MQCdFLz+4n2Hk5Q8Vws6eW3e0qXpJFU=
=2K2F
-----END PGP SIGNATURE-----