diff options
| author | aleksandr barakin <alex@barak.in> | 2022-10-03 16:55:49 +0300 |
|---|---|---|
| committer | Andrew Tropin <andrew@trop.in> | 2022-10-17 10:22:15 +0400 |
| commit | 094b357783ae92fc5652f8a8c61e0b96b342d09d (patch) | |
| tree | b8441b121a22679e0faedf1b0bde4d1ced5a6d2b /gnu/installer | |
| parent | 6f7b44e42e341a5e3b499b46f791f336d73a3b5b (diff) | |
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>
Diffstat (limited to 'gnu/installer')
| -rw-r--r-- | gnu/installer/newt/network.scm | 13 |
1 files 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)))) |