guix_mirror_bot pushed a commit to branch master
in repository guix.
commit e59a33a6c091bf640e4d15930b8a7f4f1c88b2ae
Author: Rutherther <[email protected]>
AuthorDate: Fri Sep 5 20:01:04 2025 +0200
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 <[email protected]>
---
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 b22cc71305..8a2ad84e0d 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
