diff options
| author | Rutherther <rutherther@ditigal.xyz> | 2025-09-05 20:01:04 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-10-17 12:23:54 +0200 |
| commit | e59a33a6c091bf640e4d15930b8a7f4f1c88b2ae (patch) | |
| tree | bb2a884bda0949d61b28852ba723be7f52888c16 /gnu/installer/newt | |
| parent | 4ce3a53ae5ee832aa92e0345f15780bc7da060d7 (diff) | |
installer: wait-service-online: Assume online for http errorful codes.
The general idea of the step is to check if user is online.
Even if the servers return errorful codes such as 504, the
user is online.
* gnu/installer/newt/network.scm (wait-service-online)[url-alive?]: Return #t
for all urls that return valid http response.
Change-Id: Iad06bb444ed9971bc438092ff6341fce99e77e07
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/installer/newt')
| -rw-r--r-- | gnu/installer/newt/network.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index b22cc713054..8a2ad84e0db 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -117,8 +117,9 @@ network devices were found. Do you want to continue anyway?")) FULL-VALUE tentatives, spaced by 1 second." (define (url-alive? url) (false-if-exception - (= (response-code (http-request url)) - 200))) + (begin + (http-request url) + #t))) (define (ci-available?) (dynamic-wind |