allow some redirections in the url that looks for the new version

This commit is contained in:
Robby Findler 2019-03-24 19:20:47 -05:00
parent 70e0cac062
commit 683492f6fe

View File

@ -8,7 +8,8 @@
(define timeout 30)
(define (url->port url)
(get-pure-port (string->url url)))
(get-pure-port (string->url url)
#:redirections 5))
(define error-value
(case-lambda