parent
77c2eafbbb
commit
7f69414927
|
@ -525,7 +525,7 @@ for connections to complete; when TIMEOUT is #f, wait as long as needed."
|
||||||
|
|
||||||
(define (validate-uri uri package field)
|
(define (validate-uri uri package field)
|
||||||
"Return #t if the given URI can be reached, otherwise return a warning for
|
"Return #t if the given URI can be reached, otherwise return a warning for
|
||||||
PACKAGE mentionning the FIELD."
|
PACKAGE mentioning the FIELD."
|
||||||
(let-values (((status argument)
|
(let-values (((status argument)
|
||||||
(probe-uri uri #:timeout 3))) ;wait at most 3 seconds
|
(probe-uri uri #:timeout 3))) ;wait at most 3 seconds
|
||||||
(case status
|
(case status
|
||||||
|
|
Reference in New Issue