From e59a33a6c091bf640e4d15930b8a7f4f1c88b2ae Mon Sep 17 00:00:00 2001 From: Rutherther Date: Fri, 5 Sep 2025 20:01:04 +0200 Subject: [PATCH] installer: wait-service-online: Assume online for http errorful codes. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- gnu/installer/newt/network.scm | 5 +++-- 1 file 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