guix_mirror_bot pushed a commit to branch wip-fix-system-tests
in repository guix.

commit 7e0ecb5da2f0a60e6c65c4d789b27005115e83ac
Author: Mathieu Othacehe <[email protected]>
AuthorDate: Sat Oct 18 16:18:32 2025 +0200

    Revert "installer: wait-service-online: Assume online for http errorful 
codes."
    
    This reverts commit e59a33a6c091bf640e4d15930b8a7f4f1c88b2ae.
---
 gnu/installer/newt/network.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm
index 8a2ad84e0d..b22cc71305 100644
--- a/gnu/installer/newt/network.scm
+++ b/gnu/installer/newt/network.scm
@@ -117,9 +117,8 @@ network devices were found. Do you want to continue 
anyway?"))
 FULL-VALUE tentatives, spaced by 1 second."
   (define (url-alive? url)
     (false-if-exception
-     (begin
-       (http-request url)
-       #t)))
+     (= (response-code (http-request url))
+        200)))
 
   (define (ci-available?)
     (dynamic-wind

Reply via email to