wangliu-iscas/guix-mirror
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-05-13 15:03:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

installer: wait-service-online: Assume online for http errorful codes.

Browse Source 
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>
This commit is contained in:
Rutherther
2025-09-05 20:01:04 +02:00
committed by Ludovic Courtès
parent 4ce3a53ae5
commit e59a33a6c0
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/installer/newt/network.scm
View File

@@ -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