diff options
Diffstat (limited to 'gnu/installer')
| -rw-r--r-- | gnu/installer/newt/network.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index b22cc713054..8a2ad84e0db 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 |