[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#58273] [PATCH] installer: checks the availability of the mirror
From: |
aleksandr barakin |
Subject: |
[bug#58273] [PATCH] installer: checks the availability of the mirror |
Date: |
Mon, 3 Oct 2022 16:55:49 +0300 |
User-agent: |
NeoMutt/20170113 (1.7.2) |
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(-)
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.
signature.asc
Description: PGP signature
- [bug#58273] [PATCH] installer: checks the availability of the mirror,
aleksandr barakin <=