~ruther/guix-local

e59a33a6c091bf640e4d15930b8a7f4f1c88b2ae — Rutherther 5 months ago 4ce3a53 
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 <ludo@gnu.org>
patch browse .tar.gz 
1 files changed, 3 insertions(+), 2 deletions(-)

M gnu/installer/newt/network.scm

M gnu/installer/newt/network.scm => gnu/installer/newt/network.scm +3 -2
@@ 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