bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats 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